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/Mock-Config-0.03-0/t/

View File Name : 0-basic.t

#!perl -T
use 5.006;
use strict;
use warnings;
use Test::More;

plan tests => 3;

use Config;
ok($Config{startperl}, 'initial state');

use Mock::Config;
# no lexical state yet, just dynamic
Mock::Config->import(startperl => '');
diag( "Testing Mock::Config, Perl $], ".
      (exists &Config::KEYS ? 'XS' : '')."Config $Config::VERSION, $^X" );

is($Config{startperl}, '', 'mocked to empty');

Mock::Config->unimport;
ok($Config{startperl}, 'reset');