Now passing 16-ternary.t.

jnthn · Oct 20, 2010 · 1fea9b0 · 1fea9b0
1 parent 7e9d2b8
commit 1fea9b0
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/t/nqp/16-ternary.t b/t/nqp/16-ternary.t
@@ -0,0 +1,23 @@
+#!./parrot nqp.pbc
+
+# the ternary ?? !! operator
+
+plan(8);
+
+ok( 1 ?? 1 !! 0 );
+ok( 0 ?? 0 !! 1 );
+
+my $a := 1 ?? 'yes' !! 'no';
+ok( $a eq 'yes' );
+
+my $b := 0 ?? 'yes' !! 'no';
+ok( $b eq 'no' );
+
+my $c := 1 ?? 'yes' !! ( $a := 'no' );
+ok( $c eq 'yes' );
+ok( $a eq 'yes' );
+
+my $d := 0 ?? ( $a := 'no' ) !! 'yes';
+ok( $d eq 'yes' );
+ok( $a eq 'yes' );
+