Perlito5 - tests - vstring

fglock · Sep 24, 2013 · f624047 · f624047
1 parent c55f350
commit f624047
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/t5/01-perlito/420-vstring.t b/t5/01-perlito/420-vstring.t
@@ -0,0 +1,23 @@
+use v5;
+use strict;
+use feature 'say';
+
+say "1..3";
+my $v;
+
+eval ' $a = v100; ';
+$v = ref(\$a);
+print "not " if $v ne 'VSTRING';
+say "ok 1 - $v # TODO";
+
+sub v200 { 123 }
+$a = v200; 
+$v = ref(\$a);
+print "not " if $v ne 'SCALAR';
+say "ok 2 - $v";
+
+$a = v200.200; 
+$v = ref(\$a);
+print "not " if $v ne 'VSTRING';
+say "ok 3 - $v # TODO";
+