From 64d9de92677b6ea344ab1c1e09fd71428120ef1d Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 8 Jul 2011 23:17:20 -0500 Subject: split this into its own dist --- t/lexical.t | 69 ------------------------------------------------------------- 1 file changed, 69 deletions(-) delete mode 100644 t/lexical.t (limited to 't/lexical.t') 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; -- cgit v1.2.3