develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34089 - branches/main/compilers/nqp/t

From:
pmichaud
Date:
December 18, 2008 14:54
Subject:
[svn:parrot] r34089 - branches/main/compilers/nqp/t
Message ID:
20081218225430.463EBCBA12@x12.develooper.com
Author: pmichaud
Date: Thu Dec 18 14:54:29 2008
New Revision: 34089

Modified:
   branches/main/compilers/nqp/t/15-module.t

Log:
[nqp]:  Clean up a test file for :load :init semantics.


Modified: branches/main/compilers/nqp/t/15-module.t
==============================================================================
--- branches/main/compilers/nqp/t/15-module.t	(original)
+++ branches/main/compilers/nqp/t/15-module.t	Thu Dec 18 14:54:29 2008
@@ -2,17 +2,17 @@
 
 # check module
 
-say('1..1');
-
-our $value := 'ok 2';
+XYZ::sayfoo();
+XYZ::foo('ok 3');
+XYZ::sayfoo();
 
 module XYZ {
-    our $value := 'not ok 1';
+    our $value := 'ok 1';
     sub foo($x) { $value := $x; }
     sub sayfoo() { say($value); }
+    say('1..3');
+    sayfoo();
+    foo('ok 2');
 }
 
-XYZ::foo('ok 1');
-XYZ::sayfoo();
-
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About