Changeset 590466b
- Timestamp:
- Jun 4, 2013, 7:19:44 PM (12 years ago)
- Children:
- 3247e21
- Parents:
- d555aa1
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
t/variable.t
r4953c44 r590466b 17 17 BarnOwl::unset("-q", "intvar"); 18 18 is(BarnOwl::getvar("intvar"), "24", "intvar unset bogus"); 19 BarnOwl::new_variable_int("intvar", { default => 7 }); 20 isnt(BarnOwl::getvar("intvar"), "7", "intvar reinit shouldn't override preexisting value"); 19 21 20 22 BarnOwl::new_variable_bool("boolvar", { default => 1 }); … … 28 30 BarnOwl::unset("-q", "boolvar"); 29 31 is(BarnOwl::getvar("boolvar"), "off", "boolvar unset"); 32 BarnOwl::new_variable_bool("boolvar", { default => 1 }); 33 isnt(BarnOwl::getvar("boolvar"), "on", "boolvar reinit shouldn't override preexisting value"); 30 34 31 35 BarnOwl::new_variable_string("strvar", { default => "monkey" }); … … 37 41 BarnOwl::unset("-q", "strvar"); 38 42 is(BarnOwl::getvar("strvar"), "cuttlefish", "strvar unset bogus"); 43 BarnOwl::new_variable_string("strvar", { default => "monkey" }); 44 isnt(BarnOwl::getvar("strvar"), "monkey", "strvar reinit overrode set value"); 39 45 40 46 BarnOwl::new_variable_enum("enumvar", { validsettings => [qw/foo bar baz/], default => "bar" }); … … 46 52 BarnOwl::unset("-q", "enumvar"); 47 53 is(BarnOwl::getvar("enumvar"), "baz", "enumvar unset bogus"); 54 BarnOwl::new_variable_enum("enumvar", { validsettings => [qw/foo bar baz/], default => "bar" }); 55 isnt(BarnOwl::getvar("enumvar"), "bar", "enumvar reinit overrode set value"); 48 56 49 57 BarnOwl::new_variable_int("intvar2"); … … 78 86 $value = "something really long"; 79 87 is(BarnOwl::getvar("fullvar"), "value is something really long", "fullvar set out-of-band"); 88 # Kinda verbose, but better to test all forms 89 my $value = "foo"; 90 BarnOwl::new_variable_full("fullvar", { 91 validsettings => '<short-words>', 92 get_tostring => sub { "value is " . $value }, 93 set_fromstring => sub { 94 die "Too long" unless $_[0] =~ /^...?$/; 95 $value = $_[0]; 96 }, 97 takes_on_off => 1 98 }); 99 isnt(BarnOwl::getvar("fullvar"), "value is foo", "fullvar reinit overrode set value"); 80 100 81 101 1;
Note: See TracChangeset
for help on using the changeset viewer.