Changeset 7183

Timestamp:

09/28/05 18:26:48 (3 years ago)

Author:

iblech

Message:

* Usual svn properties.
* t/unspecced/evaluation_order.t: More subtests and test fixes.
* PIL2JS: PIL::PAssign, PIL::PBind: Evaluate the LHS first, then eval the RHS

in assignment and binding.
(This means evaluation_order.t passes 9/10 now.)

Files:

• Setup.lhs (modified) (2 props)
• perl5/PIL2JS/lib/PIL/PAssign.pm (modified) (1 diff)
• perl5/PIL2JS/lib/PIL/PBind.pm (modified) (1 diff)
• perl5/Perl6-MetaModel2.0/lib/chaos.pl (modified) (2 props)
• perl5/Perl6-MetaModel2.0/t/35_AUTOLOAD.t (modified) (2 props)
• perl5/Perl6-Value/lib/Perl6/Junction.pm (modified) (2 props)
• pil.cabal (modified) (2 props)
• src/Data/FastPackedString.hs (modified) (2 props)
• src/cbits/fpstring.c (modified) (2 props)
• src/cbits/fpstring.h (modified) (2 props)
• t/unspecced/evaluation_order.t (modified) (1 diff)

perl5/PIL2JS/lib/PIL/PAssign.pm

@@ -23 +23 @@
   no warnings "recursion";
 
-  return PIL::possibly_ccify $self->{pRHS}, sub {
-    my $src = shift;
-    return PIL::possibly_ccify $self->{pLHS}, sub {
-      my $dest = shift;
+  return PIL::possibly_ccify $self->{pLHS}, sub {
+    my $dest = shift;
+    return PIL::possibly_ccify $self->{pRHS}, sub {
+      my $src = shift;
       sprintf "%s(%s.STORE(%s))",
       $self->{CC}->as_js,

perl5/PIL2JS/lib/PIL/PBind.pm

@@ -23 +23 @@
   no warnings "recursion";
 
-  return PIL::possibly_ccify $self->{pRHS}, sub {
-    my $src = shift;
-    return PIL::possibly_ccify $self->{pLHS}, sub {
-      my $dest = shift;
+  return PIL::possibly_ccify $self->{pLHS}, sub {
+    my $dest = shift;
+    return PIL::possibly_ccify $self->{pRHS}, sub {
+      my $src = shift;
       sprintf "%s(%s.BINDTO(%s))",
       $self->{CC}->as_js,

t/unspecced/evaluation_order.t

@@ -4 +4 @@
 use Test;
 
-plan 5;
+plan 10;
 
 throws_ok {
         die "first";
         die "second";
-} "first", "this better work ;-)";
+}, "first", "this better work ;-)";
 
 throws_ok {
         my @a;
         @a[die "first"] = die "second";
-} "first", "evaluation order of left/right sides of assignment";
+}, "first", "evaluation order of left/right sides of array assignment";
 
 throws_ok {
-        my @a = (die "first", die "second");
-}"first", "evaluation order of list context";
+        my @a;
+        @a[die "first"] := die "second";
+}, "first", "evaluation order of left/right sides of array binding";
 
 throws_ok {
-        my $x = die "first", die "second";
-} "first", "evaluation order of multiple items in scalar context";
+        my sub foo ($arg) is rw { my $var };
+        foo(die "first") = die "second";
+}, "first", "evaluation order of left/right sides of lvalue sub assignment";
 
 throws_ok {
-        say(die "first", die "second");
-} "first", "evaluation in function application";
+        my sub foo ($arg) is rw { my $var };
+        foo(die "first") := die "second";
+}, "first", "evaluation order of left/right sides of lvalue sub binding";
 
+throws_ok {
+        my @a = (die("first"), die("second"));
+}, "first", "evaluation order of list context";
 
+throws_ok {
+        my $x = die("first"), die("second");
+}, "first", "evaluation order of multiple items in scalar context";
+
+throws_ok {
+        say(die("first"), die("second"));
+}, "first", "evaluation in function application";
+
+throws_ok {
+        (die "first")(die "second");
+}, "first", "evaluation order of using (die()) as subref";
+
+throws_ok {
+        (die "first") += die "second";
+}, "first", "evaluation order of +=";