One Hat Cyber Team

Your IP: 216.73.216.67
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/AppConfig-1.71-0/t/

View File Name : const.t

#!/usr/bin/perl -w

#========================================================================
#
# t/const.t 
#
# AppConfig::Const test file.
#
# Written by Andy Wardley <abw@cre.canon.co.uk>
#
# Copyright (C) 1998 Canon Research Centre Europe Ltd.
# All Rights Reserved.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================

use strict;
use vars qw($loaded);
use Test::More tests => 9;
use AppConfig ':expand';
ok(1, 'loaded');


#------------------------------------------------------------------------
#2 - #5: test that the EXPAND_XXX constants got imported
#

ok( EXPAND_UID, 'EXPAND_UID' );
ok( EXPAND_VAR, 'EXPAND_VAR' );
ok( EXPAND_ENV, 'EXPAND_ENV' );
ok( EXPAND_ALL == EXPAND_UID | EXPAND_VAR | EXPAND_ENV, 'EXPAND_ALL' );


#------------------------------------------------------------------------
#6 - #9: test that the EXPAND_XXX package vars are defined
#

ok( AppConfig::EXPAND_UID, 'EXPAND_UID' );
ok( AppConfig::EXPAND_VAR, 'EXPAND_VAR' );
ok( AppConfig::EXPAND_ENV, 'EXPAND_ENV' );
ok( AppConfig::EXPAND_ALL == 
    AppConfig::EXPAND_UID 
  | AppConfig::EXPAND_VAR 
  | AppConfig::EXPAND_ENV, 'EXPAND_ALL' );