Add sprintf to String

[gitmo/Moose-Autobox.git] / t / 005_string.t

diff --git a/t/005_string.t b/t/005_string.t
index e296653..a4e7894 100644 (file)
--- a/t/005_string.t
+++ b/t/005_string.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 23;
+use Test::More;
 use Test::Exception;
 
 BEGIN {
@@ -57,3 +57,6 @@ is($VAR1, 'Hello World, Hello' , '... eval of &dump works');
 eval 'Hello World, Hello'->perl;
 is($VAR1, 'Hello World, Hello' , '... eval of &perl works');
 
+is('%s %03d'->sprintf(qw(foo 42)), 'foo 042', '... sprintf works');
+
+done_testing;