summaryrefslogtreecommitdiffstats
path: root/t/lexical.t
diff options
context:
space:
mode:
Diffstat (limited to 't/lexical.t')
-rw-r--r--t/lexical.t69
1 files changed, 0 insertions, 69 deletions
diff --git a/t/lexical.t b/t/lexical.t
deleted file mode 100644
index 036fe8a..0000000
--- a/t/lexical.t
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-
-{
- ok(1 ~~ 1);
- ok(!(1 ~~ 0));
- {
- ok(1 ~~ 1);
- ok(!(1 ~~ 0));
- use smartmatch sub { 0 };
- ok(!(1 ~~ 1));
- ok(!(1 ~~ 0));
- {
- ok(!(1 ~~ 1));
- ok(!(1 ~~ 0));
- use smartmatch sub { 1 };
- ok(1 ~~ 1);
- ok(1 ~~ 0);
- use smartmatch sub { 0 };
- ok(!(1 ~~ 1));
- ok(!(1 ~~ 0));
- use smartmatch sub { 1 };
- ok(1 ~~ 1);
- ok(1 ~~ 0);
- }
- ok(!(1 ~~ 1));
- ok(!(1 ~~ 0));
- }
- ok(1 ~~ 1);
- ok(!(1 ~~ 0));
-}
-
-{
- ok(eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
- {
- ok(eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
- use smartmatch sub { 0 };
- ok(!eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
- {
- ok(!eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
- use smartmatch sub { 1 };
- ok(eval "1 ~~ 1");
- ok(eval "1 ~~ 0");
- use smartmatch sub { 0 };
- ok(!eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
- use smartmatch sub { 1 };
- ok(eval "1 ~~ 1");
- ok(eval "1 ~~ 0");
- }
- ok(!eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
- }
- ok(eval "1 ~~ 1");
- ok(!eval "1 ~~ 0");
-}
-
-{
- use smartmatch sub { 0 };
- require 't/lib/lexical.pl';
-}
-
-done_testing;