Some tests for marshalling and eval

jnthn · Sep 17, 2009 · 31c95e9 · 31c95e9 · leto · Sep 17, 2009
1 parent 0f520c9
commit 31c95e9
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/t/02-eval.t b/t/02-eval.t
@@ -0,0 +1,11 @@
+# I am not sure how to execute these tests from harness.
+use v6;
+use Test;
+
+plan 5;
+
+ok 1 == eval( '1', :lang<perl5>), 'eval Integer';
+ok 1 == eval( '1', :lang<perl5>), 'eval Num';
+ok 'a' eq eval( '"a"', :lang<perl5>), 'eval String';
+ok 'ok' eq  eval(  'sub A::t {  $_[1]->[0] . $_[1]->[1]  };   bless {}, A', :lang<perl5> ).t( < o k > ),  'eval Array';
+ok 'ok' eq eval(  'sub A::t { $_[1]->{a}  };   bless {}, A', :lang<perl5> ).t( { :a<ok> } ), 'eval Hash';