t/unspecced/config.t

   1 use v6;
   2
   3 use Test;
   4
   5 =begin pod
   6
   7 Basic tests of C<< %?CONFIG >>, the equivalent to
   8 C<Config.pm>. Most of this is not yet even decided on,
   9 so all of this test can become obsolete on Larrys whim C<:)>
  10
  11 Currently the test is hardcoded to check for the
  12 following values in C<< %?CONFIG >>:
  13
  14     archlib
  15     archname
  16     bin
  17     cc
  18     embedded
  19     exe_ext
  20     file_sep
  21     ghc
  22     installarchlib
  23     installprivlib
  24     installsitearch
  25     installsitelib
  26     pager
  27     prefix
  28     scriptdir
  29     installbin
  30     installman1dir
  31     installman3dir
  32     installscript
  33     installsitebin
  34     installsiteman1dir
  35     installsiteman3dir
  36     osname
  37     path_sep
  38     perl5_path
  39     perl_compiler
  40     perl_revision
  41     perl_subversion
  42     perl_version
  43     privlib
  44     pugs_revision
  45     pugs_version
  46     pugs_versnum
  47     pugspath
  48     regex_engine
  49     sitearch
  50     sitebin
  51     sitelib
  52     siteprefix
  53     sitescript
  54     sourcedir
  55     uname
  56
  57 =end pod
  58
  59 my @config = <
  60     archlib
  61     archname
  62     bin
  63     cc
  64     embedded
  65     exe_ext
  66     file_sep
  67     ghc
  68     installarchlib
  69     installprivlib
  70     installsitearch
  71     installsitelib
  72     pager
  73     prefix
  74     scriptdir
  75     installbin
  76     installman1dir
  77     installman3dir
  78     installscript
  79     installsitebin
  80     installsiteman1dir
  81     installsiteman3dir
  82     osname
  83     path_sep
  84     perl5_path
  85     perl_compiler
  86     perl_revision
  87     perl_subversion
  88     perl_version
  89     privlib
  90     pugs_revision
  91     pugs_version
  92     pugs_versnum
  93     pugspath
  94     regex_engine
  95     sitearch
  96     sitebin
  97     sitelib
  98     siteprefix
  99     sitescript
 100     sourcedir
 101     uname
 102 >;
 103
 104 plan @config+2;
 105
 106 diag "Running under $*OS";
 107
 108 ok( defined %?CONFIG, '%?CONFIG is defined' );
 109 ok( %?CONFIG.keys() > 0, '%?CONFIG contains keys and values' );
 110 for @config -> $entry {
 111     # diag $entry;
 112     ok( defined %?CONFIG<<$entry>>, '%?CONFIG{'~$entry~'} exists');
 113 };