[4419d3d] | 1 | #!/usr/bin/env perl |
---|
| 2 | use strict; |
---|
| 3 | use warnings; |
---|
| 4 | |
---|
| 5 | use Test::More qw(no_plan); |
---|
| 6 | |
---|
| 7 | use BarnOwl; |
---|
| 8 | |
---|
| 9 | # Test the basic variable types. |
---|
| 10 | |
---|
| 11 | BarnOwl::new_variable_int("intvar", { default => 7 }); |
---|
| 12 | is(BarnOwl::getvar("intvar"), "7", "intvar default"); |
---|
| 13 | BarnOwl::set("-q", "intvar", "24"); |
---|
| 14 | is(BarnOwl::getvar("intvar"), "24", "intvar set"); |
---|
| 15 | BarnOwl::set("-q", "intvar", "string"); |
---|
| 16 | is(BarnOwl::getvar("intvar"), "24", "intvar set bogus"); |
---|
| 17 | BarnOwl::unset("-q", "intvar"); |
---|
| 18 | is(BarnOwl::getvar("intvar"), "24", "intvar unset bogus"); |
---|
| 19 | |
---|
| 20 | BarnOwl::new_variable_bool("boolvar", { default => 1 }); |
---|
| 21 | is(BarnOwl::getvar("boolvar"), "on", "boolvar default"); |
---|
| 22 | BarnOwl::set("-q", "boolvar", "off"); |
---|
| 23 | is(BarnOwl::getvar("boolvar"), "off", "boolvar set"); |
---|
| 24 | BarnOwl::set("-q", "boolvar", "bogus"); |
---|
| 25 | is(BarnOwl::getvar("boolvar"), "off", "boolvar set bogus"); |
---|
| 26 | BarnOwl::set("-q", "boolvar"); |
---|
| 27 | is(BarnOwl::getvar("boolvar"), "on", "boolvar set"); |
---|
| 28 | BarnOwl::unset("-q", "boolvar"); |
---|
| 29 | is(BarnOwl::getvar("boolvar"), "off", "boolvar unset"); |
---|
| 30 | |
---|
| 31 | BarnOwl::new_variable_string("strvar", { default => "monkey" }); |
---|
| 32 | is(BarnOwl::getvar("strvar"), "monkey", "strvar default"); |
---|
| 33 | BarnOwl::set("-q", "strvar", "cuttlefish"); |
---|
| 34 | is(BarnOwl::getvar("strvar"), "cuttlefish", "strvar set"); |
---|
| 35 | BarnOwl::set("-q", "strvar"); |
---|
| 36 | is(BarnOwl::getvar("strvar"), "cuttlefish", "strvar set bogus"); |
---|
| 37 | BarnOwl::unset("-q", "strvar"); |
---|
| 38 | is(BarnOwl::getvar("strvar"), "cuttlefish", "strvar unset bogus"); |
---|
| 39 | |
---|
| 40 | BarnOwl::new_variable_enum("enumvar", { validsettings => [qw/foo bar baz/], default => "bar" }); |
---|
| 41 | is(BarnOwl::getvar("enumvar"), "bar", "enumvar default"); |
---|
| 42 | BarnOwl::set("-q", "enumvar", "baz"); |
---|
| 43 | is(BarnOwl::getvar("enumvar"), "baz", "enumvar set"); |
---|
| 44 | BarnOwl::set("-q", "enumvar", "bogus"); |
---|
| 45 | is(BarnOwl::getvar("enumvar"), "baz", "boolvar set bogus"); |
---|
| 46 | BarnOwl::unset("-q", "enumvar"); |
---|
| 47 | is(BarnOwl::getvar("enumvar"), "baz", "enumvar unset bogus"); |
---|
| 48 | |
---|
| 49 | BarnOwl::new_variable_int("intvar2"); |
---|
| 50 | is(BarnOwl::getvar("intvar2"), "0", "intvar default default"); |
---|
| 51 | BarnOwl::new_variable_bool("boolvar2"); |
---|
| 52 | is(BarnOwl::getvar("boolvar2"), "off", "boolvar default default"); |
---|
| 53 | BarnOwl::new_variable_string("strvar2"); |
---|
| 54 | is(BarnOwl::getvar("strvar2"), "", "strvar default default"); |
---|
| 55 | BarnOwl::new_variable_enum("enumvar2", { validsettings => [qw/foo bar baz/] }); |
---|
| 56 | is(BarnOwl::getvar("enumvar2"), "foo", "enumvar default default"); |
---|
| 57 | |
---|
| 58 | # And test new_variable_full |
---|
| 59 | my $value = "foo"; |
---|
| 60 | BarnOwl::new_variable_full("fullvar", { |
---|
| 61 | validsettings => '<short-words>', |
---|
| 62 | get_tostring => sub { "value is " . $value }, |
---|
| 63 | set_fromstring => sub { |
---|
[4953c44] | 64 | die "Too long" unless $_[0] =~ /^...?$/; |
---|
[4419d3d] | 65 | $value = $_[0]; |
---|
| 66 | }, |
---|
| 67 | takes_on_off => 1 |
---|
| 68 | }); |
---|
| 69 | is(BarnOwl::getvar("fullvar"), "value is foo", "fullvar get"); |
---|
| 70 | BarnOwl::set("-q", "fullvar", "bar"); |
---|
| 71 | is(BarnOwl::getvar("fullvar"), "value is bar", "fullvar set"); |
---|
| 72 | BarnOwl::set("-q", "fullvar"); |
---|
| 73 | is(BarnOwl::getvar("fullvar"), "value is on", "fullvar set2"); |
---|
| 74 | BarnOwl::unset("-q", "fullvar"); |
---|
| 75 | is(BarnOwl::getvar("fullvar"), "value is off", "fullvar unset"); |
---|
| 76 | BarnOwl::set("-q", "fullvar", "bogus"); |
---|
| 77 | is(BarnOwl::getvar("fullvar"), "value is off", "fullvar set bogus"); |
---|
| 78 | $value = "something really long"; |
---|
| 79 | is(BarnOwl::getvar("fullvar"), "value is something really long", "fullvar set out-of-band"); |
---|
| 80 | |
---|
| 81 | 1; |
---|
| 82 | |
---|