projects
/
p5sagit/Eval-WithLexicals.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
initial import
[p5sagit/Eval-WithLexicals.git]
/
t
/
simple.t
1
use strictures 1;
2
use Test::More;
3
use Eval::WithLexicals;
4
5
my $eval = Eval::WithLexicals->new;
6
7
is_deeply(
8
[ $eval->eval('my $x; $x++; $x;') ],
9
[ 1 ],
10
'Basic eval ok'
11
);
12
13
is_deeply(
14
$eval->lexicals, { '$x' => \1 },
15
'Lexical stored ok'
16
);
17
18
is_deeply(
19
[ $eval->eval('$x+1') ],
20
[ 2 ],
21
'Use lexical ok'
22
);
23
24
is_deeply(
25
[ $eval->eval('{ my $x = 0 }; $x') ],
26
[ 1 ],
27
'Inner scope plus lexical ok'
28
);
29
30
done_testing;