cvsuser 03/08/09 00:22:02
Modified: t/pmc env.t
Log:
23024 by Lars Balker Rasmussen
Revision Changes Path
1.5 +24 -5 parrot/t/pmc/env.t
Index: env.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/env.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- env.t 23 Jul 2003 18:18:56 -0000 1.4
+++ env.t 9 Aug 2003 07:22:02 -0000 1.5
@@ -1,10 +1,9 @@
#! perl -w
-use Parrot::Test tests => 4;
+use Parrot::Test tests => 5;
use Test::More;
use Parrot::Config;
-SKIP: {
- skip("no setenv", 3) unless $PConfig{"setenv"};
+
$ENV{"PARROT_TMP"} = "riding a ponie";
output_like(<<'CODE', <<OUT, "getenv");
new P0, .Env
@@ -40,10 +39,30 @@
CODE
ok
OUT
-}
+
+output_is(<<'CODE', <<OUT, "gone/delete");
+ new P0, .Env
+ set P0["PARROT_TMP"], "hello polly"
+ exists I0, P0["PARROT_TMP"]
+ if I0, ok1
+ print "not "
+ok1:
+ print "ok 1\n"
+ delete P0["PARROT_TMP"]
+ set S0, P0["PARROT_TMP"]
+ unless S0, ok2
+ print "not "
+ok2:
+ print "ok 2\n"
+ end
+CODE
+ok 1
+ok 2
+OUT
SKIP: {
- skip("no unsetenv", 1) unless $PConfig{"unsetenv"};
+ # won't work on our unsetenv implementation
+ skip("no native unsetenv", 1) unless $PConfig{"unsetenv"};
output_is(<<'CODE', <<OUT, "exists/delete");
new P0, .Env
set P0["PARROT_TMP"], "hello polly"
