cvsuser 03/07/11 01:23:54
Modified: . MANIFEST
Added: t/pmc env.t
Log:
add env test
Revision Changes Path
1.371 +1 -0 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.370
retrieving revision 1.371
diff -u -w -r1.370 -r1.371
--- MANIFEST 10 Jul 2003 22:49:48 -0000 1.370
+++ MANIFEST 11 Jul 2003 08:23:52 -0000 1.371
@@ -1841,6 +1841,7 @@
t/pmc/array.t []
t/pmc/boolean.t []
t/pmc/coroutine.t []
+t/pmc/env.t []
t/pmc/eval.t []
t/pmc/intlist.t []
t/pmc/io.t []
1.1 parrot/t/pmc/env.t
Index: env.t
===================================================================
#! perl -w
use Parrot::Test tests => 2;
use Test::More;
use Parrot::Config;
$ENV{"PARROT_TMP"} = "riding a ponie";
output_like(<<'CODE', <<OUT, "getenv");
new P0, .Env
set S0, P0["PARROT_TMP"]
print S0
end
CODE
/riding a ponie/i
OUT
output_like(<<'CODE', <<OUT, "setenv/getenv");
new P0, .Env
set P0["PARROT_TMP"], "hello polly"
set S0, P0["PARROT_TMP"]
print S0
end
CODE
/hello polly/i
OUT
