Файловый менеджер - Редактировать - /home/.cpan/build/AppConfig-1.71-0/t/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' );
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0 |
proxy
|
phpinfo
|
�а�тройка