tests/scripts/features/archives

   1 #                                                              -*-mode: perl-*-
   2
   3 $description = "Test GNU make's archive management features.";
   4
   5 $details = "\
   6 This only works on systems that support it.";
   7
   8 # If this instance of make doesn't support archives, skip it
   9 exists $FEATURES{archives} or return -1;
  10
  11 # Create some .o files to work with
  12 utouch(-60, qw(a1.o a2.o a3.o));
  13
  14 # Very simple
  15 run_make_test('all: libxx.a(a1.o)',
  16               '', "ar rv libxx.a a1.o\nar: creating libxx.a\na - a1.o\n");
  17
  18 # Multiple .o's.  Add a new one to the existing library
  19 run_make_test('all: libxx.a(a1.o a2.o)',
  20               '', "ar rv libxx.a a2.o\na - a2.o\n");
  21
  22 # Touch one of the .o's so it's rebuilt
  23 utouch(-40, 'a1.o');
  24 run_make_test(undef, '', "ar rv libxx.a a1.o\nr - a1.o\n");
  25
  26 # Use wildcards
  27 run_make_test('all: libxx.a(*.o)',
  28               '', "#MAKE#: Nothing to be done for `all'.\n");
  29
  30 # Touch one of the .o's so it's rebuilt
  31 utouch(-30, 'a1.o');
  32 run_make_test(undef, '', "ar rv libxx.a a1.o\nr - a1.o\n");
  33
  34 # Use both wildcards and simple names
  35 utouch(-50, 'a2.o');
  36 run_make_test('all: libxx.a(a3.o *.o)', '',
  37               "ar rv libxx.a a3.o\na - a3.o\nar rv libxx.a a2.o\nr - a2.o\n");
  38
  39 # Check whitespace handling
  40 utouch(-40, 'a2.o');
  41 run_make_test('all: libxx.a(  a3.o    *.o     )', '',
  42               "ar rv libxx.a a2.o\nr - a2.o\n");
  43
  44 rmfiles(qw(a1.o a2.o a3.o libxx.a));
  45
  46 # This tells the test driver that the perl test script executed properly.
  47 1;