t/steps/inter/libparrot-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # inter/libparrot-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 74;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::inter::libparrot');
  12 use Parrot::Configure::Options qw( process_options );
  13 use Parrot::Configure::Step::Test;
  14 use Parrot::Configure::Test qw(
  15     test_step_constructor_and_description
  16 );
  17 use Tie::Filehandle::Preempt::Stdin;
  18
  19 ########## no ask; no other options ##########
  20
  21 my ($args, $step_list_ref) = process_options(
  22     {
  23         argv => [],
  24         mode => q{configure},
  25     }
  26 );
  27
  28 my $conf = Parrot::Configure::Step::Test->new;
  29 $conf->include_config_results( $args );
  30
  31 my $pkg = q{inter::libparrot};
  32
  33 $conf->add_steps($pkg);
  34
  35 my $serialized = $conf->pcfreeze();
  36
  37 $conf->options->set( %{$args} );
  38 my $step = test_step_constructor_and_description($conf);
  39 {
  40     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  41     my $ret = $step->runstep($conf);
  42     close STDOUT or croak "Unable to close after myout";
  43     ok( $ret, "runstep() returned true value" );
  44 }
  45
  46 $conf->replenish($serialized);
  47
  48 ########## no ask; parrot_is_shared ##########
  49
  50 ($args, $step_list_ref) = process_options(
  51     {
  52         argv => [ q{--parrot_is_shared} ],
  53         mode => q{configure},
  54     }
  55 );
  56 $conf->options->set( %{$args} );
  57 $step = test_step_constructor_and_description($conf);
  58 {
  59     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  60     my $ret = $step->runstep($conf);
  61     close STDOUT or croak "Unable to close after myout";
  62     ok( $ret, "runstep() returned true value" );
  63 }
  64
  65 $conf->replenish($serialized);
  66
  67 ########## no ask; parrot_is_shared; has_dynamic_linking ##########
  68
  69 ($args, $step_list_ref) = process_options(
  70     {
  71         argv => [ q{--parrot_is_shared} ],
  72         mode => q{configure},
  73     }
  74 );
  75 $conf->options->set( %{$args} );
  76 $step = test_step_constructor_and_description($conf);
  77 my $has_dynamic_linking_orig = $conf->data->get('has_dynamic_linking');
  78 $conf->data->set('has_dynamic_linking' => 1);
  79
  80 {
  81     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
  82     my $ret = $step->runstep($conf);
  83     close STDOUT or croak "Unable to close after myout";
  84     ok( $ret, "runstep() returned true value" );
  85 }
  86 is($step->result(), 'yes', "Expected result was set");
  87 # re-set for next test
  88 $step->set_result(q{});
  89 $conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
  90
  91 $conf->replenish($serialized);
  92
  93 ########## no ask; parrot_is_shared; has_dynamic_linking; rpath ##########
  94
  95 ($args, $step_list_ref) = process_options(
  96     {
  97         argv => [ q{--parrot_is_shared} ],
  98         mode => q{configure},
  99     }
 100 );
 101 $conf->options->set( %{$args} );
 102 $step = test_step_constructor_and_description($conf);
 103 $conf->data->set('has_dynamic_linking' => 1);
 104 my $rpath_orig = $conf->data->get('rpath');
 105 $conf->data->set('rpath' => q{-L});
 106 {
 107     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
 108     my $ret = $step->runstep($conf);
 109     close STDOUT or croak "Unable to close after myout";
 110     ok( $ret, "runstep() returned true value" );
 111 }
 112 is($step->result(), 'yes', "Expected result was set");
 113 # re-set for next test
 114 $step->set_result(q{});
 115 $conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
 116 $conf->data->set('rpath' => $rpath_orig);
 117
 118 $conf->replenish($serialized);
 119
 120 ########## no ask; parrot_is_shared; has_dynamic_linking; rpath ##########
 121
 122 ($args, $step_list_ref) = process_options(
 123     {
 124         argv => [ q{--parrot_is_shared} ],
 125         mode => q{configure},
 126     }
 127 );
 128 $conf->options->set( %{$args} );
 129 $step = test_step_constructor_and_description($conf);
 130 $conf->data->set('has_dynamic_linking' => 1);
 131 $rpath_orig = $conf->data->get('rpath');
 132 $conf->data->set('rpath' => q{-L});
 133 {
 134     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
 135     my $ret = $step->runstep($conf);
 136     close STDOUT or croak "Unable to close after myout";
 137     ok( $ret, "runstep() returned true value" );
 138 }
 139 is($step->result(), 'yes', "Expected result was set");
 140 # re-set for next test
 141 $step->set_result(q{});
 142 $conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
 143 $conf->data->set('rpath' => $rpath_orig);
 144
 145 $conf->replenish($serialized);
 146
 147 ########## no ask; libparrot_ldflags ##########
 148
 149 ($args, $step_list_ref) = process_options(
 150     {
 151         argv => [],
 152         mode => q{configure},
 153     }
 154 );
 155 $conf->options->set( %{$args} );
 156 $step = test_step_constructor_and_description($conf);
 157 my $libparrot_ldflags_orig = $conf->data->get('libparrot_ldflags');
 158 $conf->data->set('libparrot_ldflags' => 'libparrot.lib');
 159 {
 160     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
 161     my $ret = $step->runstep($conf);
 162     close STDOUT or croak "Unable to close after myout";
 163     ok( $ret, "runstep() returned true value" );
 164 }
 165 $conf->data->set('libparrot_ldflags' => $libparrot_ldflags_orig);
 166
 167 $conf->replenish($serialized);
 168
 169 ########## ask; no has_dynamic_linking ##########
 170
 171 ($args, $step_list_ref) = process_options(
 172     {
 173         argv => [ q{--ask} ],
 174         mode => q{configure},
 175     }
 176 );
 177 $conf->options->set( %{$args} );
 178 $step = test_step_constructor_and_description($conf);
 179 $conf->data->set('has_dynamic_linking' => 0);
 180 {
 181     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
 182     my $ret = $step->runstep($conf);
 183     close STDOUT or croak "Unable to close after myout";
 184     ok( $ret, "runstep() returned true value" );
 185 }
 186 is($step->result(), 'no', "Expected result was set");
 187 # re-set for next test
 188 $step->set_result(q{});
 189 $conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
 190
 191 $conf->replenish($serialized);
 192
 193 ########## ask; parrot_is_shared; has_dynamic_linking ##########
 194
 195 ($args, $step_list_ref) = process_options(
 196     {
 197         argv => [ q{--ask}, q{--parrot_is_shared} ],
 198         mode => q{configure},
 199     }
 200 );
 201 $conf->options->set( %{$args} );
 202 $step = test_step_constructor_and_description($conf);
 203 $conf->data->set('has_dynamic_linking' => 1);
 204
 205 my ( @prompts, $prompt, $object );
 206
 207 $prompt = q{y};
 208 push @prompts, $prompt;
 209
 210 $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts;
 211 can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );
 212 isa_ok( $object, 'Tie::Filehandle::Preempt::Stdin' );
 213
 214 {
 215     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
 216     my $ret = $step->runstep($conf);
 217     close STDOUT or croak "Unable to close after myout";
 218     ok( $ret, "runstep() returned true value" );
 219 }
 220
 221 undef $object;
 222 untie *STDIN;
 223 is($step->result(), 'yes', "Expected result was set");
 224 # re-set for next test
 225 $step->set_result(q{});
 226 $conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
 227 @prompts = ();
 228
 229 $conf->replenish($serialized);
 230
 231 ########## ask; has_dynamic_linking ##########
 232
 233 ($args, $step_list_ref) = process_options(
 234     {
 235         argv => [ q{--ask} ],
 236         mode => q{configure},
 237     }
 238 );
 239 $conf->options->set( %{$args} );
 240 $step = test_step_constructor_and_description($conf);
 241 $conf->data->set('has_dynamic_linking' => 1);
 242 $prompt = q{n};
 243 push @prompts, $prompt;
 244 $object = tie *STDIN, 'Tie::Filehandle::Preempt::Stdin', @prompts;
 245 can_ok( 'Tie::Filehandle::Preempt::Stdin', ('READLINE') );
 246 isa_ok( $object, 'Tie::Filehandle::Preempt::Stdin' );
 247 {
 248     open STDOUT, '>', "/dev/null" or croak "Unable to open to myout";
 249     my $ret = $step->runstep($conf);
 250     close STDOUT or croak "Unable to close after myout";
 251     ok( $ret, "runstep() returned true value" );
 252 }
 253 undef $object;
 254 untie *STDIN;
 255 is($step->result(), 'no', "Expected result was set");
 256 # re-set for next test
 257 $step->set_result(q{});
 258 $conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
 259 @prompts = ();
 260
 261 ##### get_libs() #####
 262
 263 my %seen;
 264 {
 265     local $^O = 'foobar';
 266     %seen = map { $_ => 1 } inter::libparrot::get_libs();
 267     is( scalar keys %seen, 1, "Got expected number of libs: generic" );
 268     ok( $seen{'libparrot.so'}, "Got expected lib" );
 269 }
 270
 271 {
 272     local $^O = 'MSWin32';
 273     %seen = map { $_ => 1 } inter::libparrot::get_libs();
 274     is( scalar keys %seen, 3, "Got expected number of libs: Win32" );
 275     is_deeply(
 276         \%seen,
 277         {
 278             'libparrot.dll' => 1,
 279             'libparrot.lib' => 1,
 280             'libparrot.dll.a' => 1,
 281         },
 282         "Got expected libs"
 283     );
 284 }
 285
 286 {
 287     local $^O = 'cygwin';
 288     %seen = map { $_ => 1 } inter::libparrot::get_libs();
 289     is( scalar keys %seen, 1, "Got expected number of libs: cygwin" );
 290     is_deeply(
 291         \%seen,
 292         {
 293             'libparrot.dll.a' => 1,
 294         },
 295         "Got expected libs"
 296     );
 297 }
 298
 299 {
 300     local $^O = 'darwin';
 301     %seen = map { $_ => 1 } inter::libparrot::get_libs();
 302     is( scalar keys %seen, 2, "Got expected number of libs: darwin" );
 303     is_deeply(
 304         \%seen,
 305         {
 306             'libparrot.dylib' => 1,
 307             'libparrot.a' => 1,
 308         },
 309         "Got expected libs"
 310     );
 311 }
 312
 313 ##### get_libpaths() #####
 314
 315 %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
 316 ok( $seen{'/usr/local/lib'}, "Got expected lib: generic" );
 317 ok( $seen{'/usr/lib'}, "Got expected lib: generic" );
 318
 319 {
 320     local $^O  = 'MSWin32';
 321     local $ENV{PATH} = 'alpha;beta';
 322     %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
 323     ok( $seen{'/usr/local/lib'}, "Got expected lib: MSWin32" );
 324     ok( $seen{'/usr/lib'}, "Got expected lib: MSWin32" );
 325     ok( $seen{'alpha'}, "Got expected lib: MSWin32" );
 326     ok( $seen{'beta'}, "Got expected lib: MSWin32" );
 327 }
 328
 329 {
 330     local $ENV{LD_LIBRARY_PATH} = 'alpha:beta';
 331     %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
 332     ok( $seen{'/usr/local/lib'}, "Got expected lib: LD_LIBRARY_PATH" );
 333     ok( $seen{'/usr/lib'}, "Got expected lib: LD_LIBRARY_PATH" );
 334     ok( $seen{'alpha'}, "Got expected lib: LD_LIBRARY_PATH" );
 335     ok( $seen{'beta'}, "Got expected lib: LD_LIBRARY_PATH" );
 336 }
 337
 338 {
 339     local $ENV{LD_RUN_PATH} = 'alpha:beta';
 340     %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
 341     ok( $seen{'/usr/local/lib'}, "Got expected lib: LD_RUN_PATH" );
 342     ok( $seen{'/usr/lib'}, "Got expected lib: LD_RUN_PATH" );
 343     ok( $seen{'alpha'}, "Got expected lib: LD_RUN_PATH" );
 344     ok( $seen{'beta'}, "Got expected lib: LD_RUN_PATH" );
 345 }
 346
 347 {
 348     local $ENV{DYLD_LIBRARY_PATH} = 'alpha:beta';
 349     %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
 350     ok( $seen{'/usr/local/lib'}, "Got expected lib: DYLD_LIBRARY_PATH" );
 351     ok( $seen{'/usr/lib'}, "Got expected lib: DYLD_LIBRARY_PATH" );
 352     ok( $seen{'alpha'}, "Got expected lib: DYLD_LIBRARY_PATH" );
 353     ok( $seen{'beta'}, "Got expected lib: DYLD_LIBRARY_PATH" );
 354 }
 355
 356 pass("Completed all tests in $0");
 357
 358 ################### DOCUMENTATION ###################
 359
 360 =head1 NAME
 361
 362 inter/libparrot-01.t - test inter::libparrot
 363
 364 =head1 SYNOPSIS
 365
 366     % prove t/steps/inter/libparrot-01.t
 367
 368 =head1 DESCRIPTION
 369
 370 The files in this directory test functionality used by F<Configure.pl>.
 371
 372 The tests in this file test inter::libparrot.
 373
 374 =head1 AUTHOR
 375
 376 James E Keenan
 377
 378 =head1 SEE ALSO
 379
 380 config::inter::libparrot, F<Configure.pl>.
 381
 382 =cut
 383
 384 # Local Variables:
 385 #   mode: cperl
 386 #   cperl-indent-level: 4
 387 #   fill-column: 100
 388 # End:
 389 # vim: expandtab shiftwidth=4: