Add Print and Pass

ingydotnet · Sep 6, 2011 · 7624510 · 7624510
1 parent 1d81cf6
commit 7624510
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/lib/TestML/Library/Standard.pm b/lib/TestML/Library/Standard.pm
@@ -4,6 +4,7 @@ use TestML;
 sub Point {
     my $context = shift;
     my $name = shift;
+    $name = $name->value if ref $name;
     my $value = $context->runtime->function->getvar('Block')->points->{$name};
     if ($value =~ s/\n+\z/\n/ and $value eq "\n") {
         $value = '';
@@ -146,6 +147,16 @@ sub Read {
     return str($text);
 }
 
+sub Print {
+    my $context = shift;
+    my $arg = shift;
+    print STDOUT $arg ? $arg->value : $context->value;
+}
+
+sub Pass {
+    return @_;
+}
+
 1;
 
 # sub Context {
@@ -212,6 +223,3 @@ sub Read {
 #     return $context->runtime->block->points->{$point};
 # }
 # 
-# sub Select {
-#     return (shift)->value;
-# }