git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/require_ok.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = ('../lib', 'lib');
   7     }
   8     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12
  13 use strict;
  14 use Test::More tests => 8;
  15
  16 # Symbol and Class::Struct are both non-XS core modules back to 5.004.
  17 # So they'll always be there.
  18 require_ok("Symbol");
  19 ok( $INC{'Symbol.pm'},          "require_ok MODULE" );
  20
  21 require_ok("Class/Struct.pm");
  22 ok( $INC{'Class/Struct.pm'},    "require_ok FILE" );
  23
  24 # Its more trouble than its worth to try to create these filepaths to test
  25 # through require_ok() so we cheat and use the internal logic.
  26 ok !Test::More::_is_module_name('foo:bar');
  27 ok !Test::More::_is_module_name('foo/bar.thing');
  28 ok !Test::More::_is_module_name('Foo::Bar::');
  29 ok Test::More::_is_module_name('V');