← Back to branch summary

~ubuntu-branches/ubuntu/natty/libconfig-inifiles-perl/natty

« back to all changes in this revision

Viewing changes to t/01basic.t

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Smedegaard, gregor herrmann
  • Date: 2009-01-24 22:25:26 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20090124222526-uutu8jg5r4vrfljq
Tags: 2.47-1
[ Jonas Smedegaard ]
* New upstream release. Closes: bug#430426, #380280.
* Depend on ${misc:Depends}.
* Fix Vcs-* fields to point to refer to correct package.
* Update CDBS snippets:
  + Update copyright-check output to more closely match proposed new
    copyright file format
  + Simplify internal variables
  + Ignore no files by default in copyright-check.mk
  + Correct and update copyright hints of the snippets themselves
  + Move dependency cleanup to new local snippet package-relations.mk.
* Update debian/copyright and copyright hints:
  + Rewrite debian/copyright using new file format, version 428
  + Add info on CDBS snippets (new owners, no new licenses)
* Add DEB_MAINTAINER_MODE in debian/rules (thanks to Romain Beauxis).

[ gregor herrmann ]
* debian/watch: use dist-based URL.
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
  (source stanza).

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/01basic.t
1
 
use strict;
2
 
use Test;
3
 
use Config::IniFiles;
4
 
 
5
 
BEGIN { plan tests => 10 }
6
 
 
7
 
my ($value, @value);
8
 
umask 0000;
9
 
 
10
 
# Get files from the 't' directory, portably
11
 
chdir('t') if ( -d 't' );
12
 
 
13
 
# Test 1
14
 
# Loading from a file
15
 
my $ini = new Config::IniFiles -file => "test.ini";
16
 
unlink "test01.ini";
17
 
$ini->SetFileName("test01.ini");
18
 
$ini->SetWriteMode("0666");
19
 
ok($ini);
20
 
 
21
 
# Test 2
22
 
# Reading a single value in scalar context
23
 
$value = $ini->val('test1', 'one');
24
 
ok (defined $value and $value eq 'value1');
25
 
 
26
 
# Test 3
27
 
# Reading a single value in list context
28
 
@value = $ini->val('test1', 'one');
29
 
ok ($value[0] eq 'value1');
30
 
 
31
 
# Test 4
32
 
# Reading a multiple value in scalar context
33
 
$value = $ini->val('test1', 'mult');
34
 
ok (defined $value and $value eq "one$/two$/three");
35
 
 
36
 
# Test 5
37
 
# Reading a multiple value in list context
38
 
@value = $ini->val('test1', 'mult');
39
 
$value = join "|", @value;
40
 
ok ($value eq "one|two|three");
41
 
 
42
 
# Test 6
43
 
# Creating a new multiple value
44
 
@value = ("one", "two", "three");
45
 
$ini->newval('test1', 'eight', @value);
46
 
$value = $ini->val('test1', 'eight');
47
 
ok($value eq "one$/two$/three");
48
 
 
49
 
# Test 7
50
 
# Creating a new value
51
 
$ini->newval('test1', 'seven', 'value7');
52
 
$ini->RewriteConfig;
53
 
$ini->ReadConfig;
54
 
$value='';
55
 
$value = $ini->val('test1', 'seven');
56
 
ok ($value eq 'value7');
57
 
 
58
 
# Test 8
59
 
# Deleting a value
60
 
$ini->delval('test1', 'seven');
61
 
$ini->RewriteConfig;
62
 
$ini->ReadConfig;
63
 
$value='';
64
 
$value = $ini->val('test1', 'seven');
65
 
ok (! defined ($value));
66
 
 
67
 
# Test 9
68
 
# Reading a default values from existing section
69
 
$value = $ini->val('test1', 'not a real parameter name', '12345');
70
 
ok (defined($value) && ($value == '12345'));
71
 
 
72
 
# Test 10
73
 
# Reading a default values from non-existent section
74
 
$value = $ini->val('not a real section', 'no parameter by this name', '12345');
75
 
ok (defined($value) && ($value == '12345'));
76
 
 
77
 
# Clean up when we're done
78
 
unlink "test01.ini";
79
 
 
 
1
use strict;
 
2
use Test;
 
3
use Config::IniFiles;
 
4
use lib "./t/lib";
 
5
use Config::IniFiles::Debug;
 
6
 
 
7
BEGIN { plan tests => 10 }
 
8
 
 
9
my ($value, @value);
 
10
umask 0000;
 
11
 
 
12
# Get files from the 't' directory, portably
 
13
chdir('t') if ( -d 't' );
 
14
 
 
15
# Test 1
 
16
# Loading from a file
 
17
my $ini = new Config::IniFiles -file => "test.ini";
 
18
$ini->_assert_invariants();
 
19
unlink "test01.ini";
 
20
$ini->SetFileName("test01.ini");
 
21
$ini->SetWriteMode("0666");
 
22
ok($ini);
 
23
 
 
24
# Test 2
 
25
# Reading a single value in scalar context
 
26
$value = $ini->val('test1', 'one');
 
27
$ini->_assert_invariants();
 
28
ok (defined $value and $value eq 'value1');
 
29
 
 
30
# Test 3
 
31
# Reading a single value in list context
 
32
@value = $ini->val('test1', 'one');
 
33
$ini->_assert_invariants();
 
34
ok ($value[0] eq 'value1');
 
35
 
 
36
# Test 4
 
37
# Reading a multiple value in scalar context
 
38
$value = $ini->val('test1', 'mult');
 
39
ok (defined $value and $value eq "one$/two$/three") || warn $value;
 
40
 
 
41
# Test 5
 
42
# Reading a multiple value in list context
 
43
@value = $ini->val('test1', 'mult');
 
44
$value = join "|", @value;
 
45
ok ($value eq "one|two|three");
 
46
 
 
47
# Test 6
 
48
# Creating a new multiple value
 
49
@value = ("one", "two", "three");
 
50
$ini->newval('test1', 'eight', @value);
 
51
$ini->_assert_invariants();
 
52
$value = $ini->val('test1', 'eight');
 
53
ok($value eq "one$/two$/three");
 
54
 
 
55
# Test 7
 
56
# Creating a new value
 
57
$ini->newval('test1', 'seven', 'value7');
 
58
$ini->_assert_invariants();
 
59
$ini->RewriteConfig;
 
60
$ini->ReadConfig;
 
61
$ini->_assert_invariants();
 
62
$value='';
 
63
$value = $ini->val('test1', 'seven');
 
64
$ini->_assert_invariants();
 
65
ok ($value eq 'value7');
 
66
 
 
67
# Test 8
 
68
# Deleting a value
 
69
$ini->delval('test1', 'seven');
 
70
$ini->_assert_invariants();
 
71
$ini->RewriteConfig;
 
72
$ini->ReadConfig;
 
73
$ini->_assert_invariants();
 
74
$value='';
 
75
$value = $ini->val('test1', 'seven');
 
76
ok (! defined ($value));
 
77
 
 
78
# Test 9
 
79
# Reading a default values from existing section
 
80
$value = $ini->val('test1', 'not a real parameter name', '12345');
 
81
ok (defined($value) && ($value == '12345'));
 
82
 
 
83
# Test 10
 
84
# Reading a default values from non-existent section
 
85
$value = $ini->val('not a real section', 'no parameter by this name', '12345');
 
86
ok (defined($value) && ($value == '12345'));
 
87
 
 
88
# Clean up when we're done
 
89
unlink "test01.ini";
 
90