view release on metacpan or  search on metacpan

t/t_TestCommon.pm  view on Meta::CPAN

  my %tags;
  for (my $ix=0; $ix <= $#_; $ix++) {
    if ($_[$ix] =~ /^(:.*)$/) {
      next if $_[$ix] eq ":DEFAULT"; # ok, pass thru to Exporter
      $tags{$1} = 1;
      splice @_, $ix, 1, ();
      redo unless $ix > $#_;
    }
  }

  # Do an initial read of $[ so arybase will be autoloaded
  # (prevents corrupting $!/ERRNO in subsequent tests)
  eval '$[' // die;

  # Test2::V0
  #  Do not import warnings, to avoid un-doing prior settings.
  #  Do not inport 1- and 2- or 3- character upper-case names, which are
  #  likely to clash with user variables and/or spreadsheet column letters
  #  (when using Spreadsheet::Edit).
  #
  #  The :no-Test2 tag is used by subtest .pl scripts which must not
  #  generate any Test2 events!
  unless (delete $tags{":no-Test2"}) {