LibArchive/t/LibArchive.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl LibArchive.t'
   3
   4 #########################
   5
   6 # change 'tests => 2' to 'tests => last_test_to_print';
   7
   8 use Test::More tests => 2;
   9 BEGIN { use_ok('LibArchive') };
  10
  11
  12 my $fail = 0;
  13 foreach my $constname (qw(
  14         ARCHIVE_API_FEATURE ARCHIVE_API_VERSION ARCHIVE_BYTES_PER_RECORD
  15         ARCHIVE_COMPRESSION_BZIP2 ARCHIVE_COMPRESSION_COMPRESS
  16         ARCHIVE_COMPRESSION_GZIP ARCHIVE_COMPRESSION_NONE
  17         ARCHIVE_COMPRESSION_PROGRAM ARCHIVE_DEFAULT_BYTES_PER_BLOCK ARCHIVE_EOF
  18         ARCHIVE_EXTRACT_ACL ARCHIVE_EXTRACT_FFLAGS ARCHIVE_EXTRACT_NO_AUTODIR
  19         ARCHIVE_EXTRACT_NO_OVERWRITE ARCHIVE_EXTRACT_NO_OVERWRITE_NEWER
  20         ARCHIVE_EXTRACT_OWNER ARCHIVE_EXTRACT_PERM
  21         ARCHIVE_EXTRACT_SECURE_NODOTDOT ARCHIVE_EXTRACT_SECURE_SYMLINKS
  22         ARCHIVE_EXTRACT_TIME ARCHIVE_EXTRACT_UNLINK ARCHIVE_EXTRACT_XATTR
  23         ARCHIVE_FAILED ARCHIVE_FATAL ARCHIVE_FORMAT_AR ARCHIVE_FORMAT_AR_BSD
  24         ARCHIVE_FORMAT_AR_GNU ARCHIVE_FORMAT_BASE_MASK ARCHIVE_FORMAT_CPIO
  25         ARCHIVE_FORMAT_CPIO_BIN_BE ARCHIVE_FORMAT_CPIO_BIN_LE
  26         ARCHIVE_FORMAT_CPIO_POSIX ARCHIVE_FORMAT_CPIO_SVR4_CRC
  27         ARCHIVE_FORMAT_CPIO_SVR4_NOCRC ARCHIVE_FORMAT_EMPTY
  28         ARCHIVE_FORMAT_ISO9660 ARCHIVE_FORMAT_ISO9660_ROCKRIDGE
  29         ARCHIVE_FORMAT_SHAR ARCHIVE_FORMAT_SHAR_BASE ARCHIVE_FORMAT_SHAR_DUMP
  30         ARCHIVE_FORMAT_TAR ARCHIVE_FORMAT_TAR_GNUTAR
  31         ARCHIVE_FORMAT_TAR_PAX_INTERCHANGE ARCHIVE_FORMAT_TAR_PAX_RESTRICTED
  32         ARCHIVE_FORMAT_TAR_USTAR ARCHIVE_FORMAT_ZIP ARCHIVE_OK ARCHIVE_RETRY
  33         ARCHIVE_VERSION_STAMP ARCHIVE_WARN)) {
  34   next if (eval "my \$a = $constname; 1");
  35   if ($@ =~ /^Your vendor has not defined LibArchive macro $constname/) {
  36     print "# pass: $@";
  37   } else {
  38     print "# fail: $@";
  39     $fail = 1;
  40   }
  41
  42 }
  43
  44 ok( $fail == 0 , 'Constants' );
  45 #########################
  46
  47 # Insert your test code below, the Test::More module is use()ed here so read
  48 # its man page ( perldoc Test::More ) for help writing this test script.
  49