Skip to content
Browse files

Merge branch 'master' of github.com:scrottie/autobox-Core

  • Loading branch information...
2 parents 507ee78 + aae015f commit c63540783431c6e32205dd8517a0f693269b386a @scrottie committed Mar 19, 2010
Showing with 52 additions and 0 deletions.
  1. +6 −0 t/concat.t
  2. +6 −0 t/crypt.t
  3. +6 −0 t/m.t
  4. +6 −0 t/nm.t
  5. +6 −0 t/quotemeta.t
  6. +6 −0 t/strip.t
  7. +6 −0 t/system.t
  8. +10 −0 t/undef.t
View
6 t/concat.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+is 'foo'->concat(qw(bar quux)), 'foobarquux';
View
6 t/crypt.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+is 'PLAINTEXT'->crypt('SALT'), 'SAPH9ylAEPe62';
View
6 t/m.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+ok 'foo'->m(qr/o+/);
View
6 t/nm.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+ok 'bar'->nm(qr/o+/);
View
6 t/quotemeta.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+is 'so (many [pairs])'->quotemeta, 'so\ \(many\ \[pairs\]\)';
View
6 t/strip.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+is " \t \n \t foo \t \n \t "->strip, 'foo';
View
6 t/system.t
@@ -0,0 +1,6 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+is $^X->system(qw(-e1)), 0;
View
10 t/undef.t
@@ -0,0 +1,10 @@
+use Test::More qw(no_plan);
+use strict;
+use warnings;
+use autobox::Core;
+
+my $foo = 'foo';
+is $foo->undef, undef;
+
+is_deeply [1,2,3]->undef, [];
+is_deeply {foo => 123}->undef, +{};

0 comments on commit c635407

Please sign in to comment.
Something went wrong with that request. Please try again.