view release on metacpan or  search on metacpan

t/30-alt_symbols_cfg.t  view on Meta::CPAN

#!/usr/bin/perl

# This test program assumes that "t/config/10-simple.cfg" is 100% valid!
# And that each config file you compare against is an equivalant config file
# to this one.
 
# This program compares other config files against this one with different
# "Read Options" selected to verify that these other config files parse
# correctly.  So if any test cases fail, either the config file is bad or
# there is a bug in this module!

# Rather than modify this program each and every time I want to add a new config
# file to compare against, I use "t/config/30-alt_symbol_control.cfg" as a
# control file that tells how each of the config files it compares against is
# configured.  Done this way so I may use any of the "Read Options" I wish
# in setting up a new config file to test against.

# See the comments in this control config file for more details.

# This serves two purposes.  Ease of adding additional config files to test
# against.  As well as testing out this module.

# ------------------------------------------------------------------------------

# NOTE: To skip the 'shft3' warnings, add SKIP as an option to this script!
#       It's automatically skipped during "make test".

# ------------------------------------------------------------------------------

use strict;
use warnings;

use Test::More;
use File::Basename;
use File::Spec;
use Sys::Hostname;
use Fred::Fish::DBUG 2.09 qw / on /;
use Fred::Fish::DBUG::Test 2.09;

# How to find the helper module ...
BEGIN { push (@INC, File::Spec->catdir (".", "t", "test-helper")); }
use helper1234;

my $fish;

# For overriding the fish mask in parse_line ().
my $oTag = "DBUG_TEST_USE_CASE_PARSE_OVERRIDE";

BEGIN {
   $fish = turn_fish_on_off_for_advanced_config ();

   unlink ( $fish );

   DBUG_ENTER_FUNC ();

   # Always make it look like it's running via "make test"!
   $ENV{PERL_DL_NONLAZY} = 1;

   use_ok ("Advanced::Config");
   use_ok ("Advanced::Config::Options");

   DBUG_VOID_RETURN ();
}


END {
   DBUG_ENTER_FUNC ();
   # Don't do any tests in the END block ...