DynaLoader/t/DynaLoader.t

40 use_ok( 'DynaLoader' );
49 can_ok( 'DynaLoader' => 'bootstrap'               ); # defined in Perl section
50 can_ok( 'DynaLoader' => 'dl_load_flags'           ); # defined in Perl section
51 can_ok( 'DynaLoader' => 'dl_error'                ); # defined in XS section
53     can_ok( 'DynaLoader' => 'dl_find_symbol'      ); # defined in XS section
54     can_ok( 'DynaLoader' => 'dl_install_xsub'     ); # defined in XS section
55     can_ok( 'DynaLoader' => 'dl_load_file'        ); # defined in XS section
56     can_ok( 'DynaLoader' => 'dl_undef_symbols'    ); # defined in XS section
59         can_ok( 'DynaLoader' => 'dl_unload_file'  ); # defined in XS section
64 	is(DynaLoader->can($symbol), undef,
65 	   "Without dynamic loading, DynaLoader should not have $symbol");
69 can_ok( 'DynaLoader' => 'dl_expandspec'           );
70 can_ok( 'DynaLoader' => 'dl_findfile'             );
71 can_ok( 'DynaLoader' => 'dl_find_symbol_anywhere' );
76 eval { DynaLoader::bootstrap() };
77 like( $@, qr/^Usage: DynaLoader::bootstrap\(module\)/,
78         "calling DynaLoader::bootstrap() with no argument" );
80 eval { package egg_bacon_sausage_and_spam; DynaLoader::bootstrap("egg_bacon_sausage_and_spam") };
83         "calling DynaLoader::bootstrap() with a package without binary object" );
86         "calling DynaLoader::bootstrap() with a package without binary object" );
92     eval { DynaLoader::dl_load_file() };
93     like( $@, qr/^Usage: DynaLoader::dl_load_file\(filename, flags=0\)/,
94             "calling DynaLoader::dl_load_file() with no argument" );
96     eval { no warnings 'uninitialized'; DynaLoader::dl_load_file(undef) };
97     is( $@, '', "calling DynaLoader::dl_load_file() with undefined argument" );     # is this expected ?
101 eval { $dlhandle = DynaLoader::dl_load_file("egg_bacon_sausage_and_spam") };
102 $dlerr = DynaLoader::dl_error();
105     ok( !$dlhandle, "calling DynaLoader::dl_load_file() without an existing library should fail" );
116     eval { @files = DynaLoader::dl_findfile("c") };
148 is( scalar @DynaLoader::dl_librefs, scalar keys %modules, "checking number of items in \@dl_librefs" );
149 is( scalar @DynaLoader::dl_modules, scalar keys %modules, "checking number of items in \@dl_modules" );
151 my @loaded_modules = @DynaLoader::dl_modules;
152 for my $libref (reverse @DynaLoader::dl_librefs) {
158         my $r = eval { DynaLoader::dl_unload_file($libref) };
166         unless defined &DynaLoader::mod2fname && $Config{d_libname_unique};
169         DynaLoader::mod2fname(["Hash", "Util"]),
175         DynaLoader::mod2fname([("Hash", "Util") x 25]),
181         DynaLoader::mod2fname([("Haash", "Uttil") x 25]),
187         DynaLoader::mod2fname([("Hash", "Util")x30]),