The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

RFOLEY / Perlbug-2.27 / t / 60_Base.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
#!/usr/bin/perl -w
# Base tests for Perlbug 
# Richard Foley RFI perlbug@rfi.net
# $Id: 60_Base.t,v 1.3 2000/08/02 08:20:44 perlbug Exp $
#
# TODO: clean_up tests
#
BEGIN {
        use File::Spec; 
        use lib File::Spec->updir;
        use Perlbug::Testing;
        plan('tests' => 7);
}
use strict;
use lib qw(../);
my $test = 0;
my $err = 0;
# Libs
# -----------------------------------------------------------------------------
use Perlbug::Base;
my $o_base = ''; 
# Tests
# -----------------------------------------------------------------------------
my $admin       = '';
my $status      = '';
# 1
# callable? 
$test++; 
if ($o_base = Perlbug::Base->new()) {        
        $o_base->current('isatest', 1);
        ok($test);
} else {
        notok($test);
        output("base object ($o_base) not retrieved");
}
# 2
# admin should be leer?
$test++; 
$admin = $o_base->isadmin;
if ($admin eq '') {     
        ok($test);
} else {
        notok($test);
        output("invalid (should be '') admin($admin)");
}
# 3
# should still be leer?
$test++; 
$admin = $o_base->isadmin('test_able ');
if ($admin eq '') {     
        ok($test);
} else {
        notok($test);
        output("invalid (should still be '') admin($admin)");
}
# 4
# user?
$test++; 
$status = $o_base->status;
if ($status eq 'U') {   
        ok($test);
} else {
        notok($test);
        output("invalid (should be 'U') status($status)");
}
# 5
# set?
$test++; 
$admin = $o_base->current('admin', 'xxx');
if ($admin eq 'xxx') {  
        ok($test);
} else {
        notok($test);
        output("invalid assignment (should be 'xxx') admin($admin)");
}
# 6
# admin?
$test++; 
$status = $o_base->status;
if ($status eq 'A') {   
        ok($test);
} else {
        notok($test);
        output("invalid status (should be 'A') status($status)");
}
# 7
# reset?
$test++; 
$o_base->current('admin', '');
$admin  = $o_base->current('admin');
$status = $o_base->status;
if ($admin eq '' and $status eq 'U') {  
        ok($test);
} else {
        notok($test);
        output("invalid reset (should be '' and 'U') admin($admin) and status($status)");
}
# Done
# -----------------------------------------------------------------------------
# .