Add more level words. Rename TOPLEVEL to TOP

[perl/modules/Scope-Upper.git] / t / 05-words.t

diff --git a/t/05-words.t b/t/05-words.t
new file mode 100644 (file)
index 0000000..2376d35
--- /dev/null
+++ b/t/05-words.t
@@ -0,0 +1,76 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 33;
+
+use Scope::Upper qw/:words/;
+
+is CURRENT, 0, 'main : current';
+is TOP, 0, 'main : top';
+is UP, 0, 'main : up';
+is DOWN, 0, 'main : down';
+is SUB, undef, 'main : sub';
+is EVAL, undef, 'main : eval';
+
+{
+ is CURRENT, 0, '{ 1 } : current';
+ is TOP, 1, '{ 1 } : top';
+ is UP, 1, '{ 1 } : up';
+ is DOWN, 0, '{ 1 } : down';
+ is DOWN(UP), 0, '{ 1 } : up then down';
+ is UP(DOWN), 1, '{ 1 } : down then up';
+}
+
+do {
+ is TOP, 1, 'do { 1 } : top';
+ is SUB, undef, 'do { 1 } : sub';
+ is EVAL, undef, 'do { 1 } : eval';
+};
+
+eval {
+ is TOP, 1, 'eval { 1 } : top';
+ is SUB, undef, 'eval { 1 } : sub';
+ is EVAL, 0, 'eval { 1 } : eval';
+};
+
+eval q[
+ is TOP, 1, 'eval "1" : top';
+ is SUB, undef, 'eval "1" : sub';
+ is EVAL, 0, 'eval "1" : eval';
+];
+
+do {
+ is TOP, 1, 'do { 1 } while (0) : top';
+} while (0);
+
+sub {
+ is TOP, 1, 'sub { 1 } : top';
+ is SUB, 0, 'sub { 1 } : sub';
+ is EVAL, undef, 'sub { 1 } : eval';
+}->();
+
+for (1) {
+ is TOP, 1, 'for () { 1 } : top';
+}
+
+do {
+ eval {
+  do {
+   sub {
+    eval q[
+     {
+      is CURRENT, 0, 'mixed : current';
+      is TOP, 6, 'mixed : top';
+      is SUB, 2, 'mixed : first sub';
+      is SUB(SUB), 2, 'mixed : still first sub';
+      is EVAL, 1, 'mixed : first eval';
+      is EVAL(EVAL), 1, 'mixed : still first eval';
+      is EVAL(UP(EVAL)), 4, 'mixed : second eval';
+     }
+    ];
+   }->();
+  }
+ };
+} while (0);