added a few more command tests

mojolicious · Oct 3, 2011 · 777a377 · 777a377
1 parent b0a1868
commit 777a377
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 5 deletions.
diff --git a/lib/Mojo/Command.pm b/lib/Mojo/Command.pm
@@ -58,7 +58,7 @@ sub class_to_file {
 
 sub class_to_path {
   my ($self, $class) = @_;
-  my $path = join '/', split /::/, $class;
+  my $path = join '/', split /::|'/, $class;
   return "$path.pm";
 }
 

diff --git a/t/mojo/command.t b/t/mojo/command.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use Mojo::Base -strict;
 
-use Test::More tests => 27;
+use Test::More tests => 32;
 
 use Cwd 'cwd';
 use File::Spec;
@@ -67,7 +67,12 @@ is $command->class_to_file('FooBAR'),   'foo_bar', 'right file';
 is $command->class_to_file('Foo::BAR'), 'foo_bar', 'right file';
 
 # Class to path
-is $command->class_to_path('Foo::Bar'), 'Foo/Bar.pm', 'right path';
+is $command->class_to_path('Foo::Bar'),      'Foo/Bar.pm',     'right path';
+is $command->class_to_path("Foo'Bar"),       'Foo/Bar.pm',     'right path';
+is $command->class_to_path("Foo'Bar::Baz"),  'Foo/Bar/Baz.pm', 'right path';
+is $command->class_to_path("Foo::Bar'Baz"),  'Foo/Bar/Baz.pm', 'right path';
+is $command->class_to_path("Foo::Bar::Baz"), 'Foo/Bar/Baz.pm', 'right path';
+is $command->class_to_path("Foo'Bar'Baz"),   'Foo/Bar/Baz.pm', 'right path';
 
 # Environment detection
 {

diff --git a/t/mojo/loader.t b/t/mojo/loader.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use Mojo::Base -strict;
 
-use Test::More tests => 36;
+use Test::More tests => 38;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
@@ -67,4 +67,8 @@ ok !!LoaderTest::B->can('new'), 'loaded successfully';
 ok !!LoaderTest::C->can('new'), 'loaded successfully';
 
 # Class does not exist
-ok $loader->load('LoaderTest'), 'nothing to load';
+ok !!$loader->load('LoaderTest'), 'nothing to load';
+
+# Invalid class
+ok !!$loader->load('Mojolicious/Lite'), 'nothing to load';
+ok !$loader->load('Mojolicious::Lite'), 'loaded successfully';