New tests (#9)

* Improved tests
davorg-cpan · Oct 6, 2016 · 5abdb04 · 5abdb04
1 parent 9042f73
commit 5abdb04
Show file tree

Hide file tree

Showing 11 changed files with 51 additions and 27 deletions.
diff --git a/t/anon.t b/t/anon.t
@@ -1,4 +1,4 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (xform => undef,
 			 match => sub { shift; 
@@ -11,4 +11,6 @@ sub aa { 'aa' }
 
 sub bb { 'bb' }
 
-ok(b() eq 'aa');
+is(b(), 'aa');
+
+done_testing();
diff --git a/t/arr_str_xform.t b/t/arr_str_xform.t
@@ -1,8 +1,10 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (xform => [ 'Text::Soundex' ]);
 
 
 sub a_a { 'aa' }
 
-ok(aa() eq 'aa');
+is(aa(), 'aa');
+
+done_testing();
diff --git a/t/arr_xform.t b/t/arr_xform.t
@@ -1,9 +1,11 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (xform => [ sub { map { s/[^a-z]//ig; $_ } @_ },
                                     sub { map { lc } @_ } ]);
 
 
 sub a_a { 'aa' }
 
-ok(AA() eq 'aa');
+is(AA(), 'aa');
+
+done_testing;
diff --git a/t/basic.t b/t/basic.t
@@ -1,14 +1,16 @@
-use Test::More tests => 4;
+use Test::More;
 
 use_ok('Symbol::Approx::Sub');
 
 sub aa { 'aa' }
 
 sub bb { 'bb' }
 
-ok(a() eq 'aa');
+is(a(), 'aa');
 
-ok(b() eq 'bb');
+is(b(), 'bb');
 
-eval "c()";
+eval { c() };
 ok($@);
+
+done_testing;
diff --git a/t/code_xform.t b/t/code_xform.t
@@ -1,7 +1,9 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (xform => sub { map { s/[^A-Za-z]//g; $_ } @_ });
 
 sub a_a { 'aa' }
 
-ok(aa() eq 'aa');
+is(aa(), 'aa');
+
+done_testing;
diff --git a/t/hash_xform.t b/t/hash_xform.t
@@ -1,4 +1,4 @@
-use Test::More tests => 2;
+use Test::More;
 
 use Symbol::Approx::Sub;
 
@@ -7,3 +7,5 @@ ok($@);
 
 eval { Symbol::Approx::Sub->import(xform => [{}]) };
 ok($@);
+
+done_testing;
diff --git a/t/package.t b/t/package.t
@@ -1,6 +1,6 @@
 package x;
 
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (xform => undef,
 			 match => sub { my ($sub, @subs) = @_;
@@ -12,4 +12,6 @@ use Symbol::Approx::Sub (xform => undef,
 
 sub oof {'yep'};
 
-ok(foo() eq 'yep');
+is(foo(), 'yep');
+
+done_testing;
diff --git a/t/packages.t b/t/packages.t
@@ -1,16 +1,20 @@
-use Test::More tests => 3;
+use Test::More;
 
-package x;
+package Foo;
 
 use Symbol::Approx::Sub (xform => 'Text::Soundex'); 
-Test::More::ok(bar() eq 'yep');
+Test::More::is(bar(), 'yep');
 sub baar {'yep'}
 sub qux  {12}
 
-package y;
+package Bar;
 use Symbol::Approx::Sub (canon => undef,
 			 match => sub {shift; return 0 .. $#_});
-Test::More::ok(&x::quux()==12);
-Test::More::ok(&y::quux()==23);
+Test::More::is(Foo::quux(), 12);
+Test::More::is(Bar::quux(), 23);
 
 sub flurble {23}
+
+package main;
+
+done_testing;
diff --git a/t/ref.t b/t/ref.t
@@ -1,4 +1,4 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub(xform => undef,
 			match => \&always_bb);
@@ -17,4 +17,6 @@ sub aa { 'aa' }
 
 sub bb { 'bb' }
 
-ok(a() eq 'bb');
+is(a(), 'bb');
+
+done_testing;
diff --git a/t/str_choose.t b/t/str_choose.t
@@ -1,8 +1,10 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (choose => 'String::Equal');
 
 
 sub aa { 'aa' }
 
-ok(a() eq 'aa');
+is(a(), 'aa');
+
+done_testing;
diff --git a/t/str_xform.t b/t/str_xform.t
@@ -1,8 +1,10 @@
-use Test::More tests => 1;
+use Test::More;
 
 use Symbol::Approx::Sub (xform => 'Text::Soundex');
 
 
 sub a_a { 'aa' }
 
-ok(aa() eq 'aa');
+is(aa(), 'aa');
+
+done_testing;