[1980] | 1 | #!/usr/bin/perl |
---|
| 2 | |
---|
| 3 | use strict; |
---|
| 4 | use warnings; |
---|
| 5 | |
---|
| 6 | use Fcm::Config; |
---|
| 7 | use Fcm::Keyword::Entries; |
---|
| 8 | use Test::More qw{no_plan}; |
---|
| 9 | |
---|
| 10 | my %VALUE_OF = ( |
---|
| 11 | foo => 'fcm-test://foo/foo', |
---|
| 12 | bar => 'fcm-test://bar/bar', |
---|
| 13 | baz => 'fcm-test://baz/baz', |
---|
| 14 | ); |
---|
| 15 | |
---|
| 16 | main(); |
---|
| 17 | |
---|
| 18 | sub main { |
---|
| 19 | my $class = 'Fcm::Keyword::Loader::Config::Location'; |
---|
| 20 | use_ok($class); |
---|
| 21 | test_constructor($class); |
---|
| 22 | test_load_to($class); |
---|
| 23 | } |
---|
| 24 | |
---|
| 25 | ################################################################################ |
---|
| 26 | # Tests simple usage of the constructor |
---|
| 27 | sub test_constructor { |
---|
| 28 | my ($class) = @_; |
---|
| 29 | my $prefix = "constructor"; |
---|
| 30 | my $loader = $class->new(); |
---|
| 31 | isa_ok($loader, $class); |
---|
| 32 | is($loader->get_source(), 'Fcm::Config', "$prefix: get_source()"); |
---|
| 33 | } |
---|
| 34 | |
---|
| 35 | ################################################################################ |
---|
| 36 | # Tests loading to an Fcm::Keyword::Entries object |
---|
| 37 | sub test_load_to { |
---|
| 38 | my ($class) = @_; |
---|
| 39 | my $prefix = 'load to'; |
---|
| 40 | my $config = Fcm::Config->instance(); |
---|
| 41 | for my $key (keys(%VALUE_OF)) { |
---|
| 42 | $config->setting(['URL', $key], $VALUE_OF{$key}); |
---|
| 43 | } |
---|
| 44 | my $loader = $class->new(); |
---|
| 45 | my $entries = Fcm::Keyword::Entries->new({ |
---|
| 46 | entry_class => 'Fcm::Keyword::Entry::Location', |
---|
| 47 | }); |
---|
| 48 | isnt($loader->load_to($entries), 0, "$prefix: number loaded"); |
---|
| 49 | for my $key (keys(%VALUE_OF)) { |
---|
| 50 | my $entry = $entries->get_entry_by_key($key); |
---|
| 51 | if ($entry) { |
---|
| 52 | is($entry->get_key(), uc($key), "$prefix: by key: $key"); |
---|
| 53 | is($entry->get_value(), $VALUE_OF{$key}, "$prefix: by value: $key"); |
---|
| 54 | is( |
---|
| 55 | $entries->get_entry_by_value($VALUE_OF{$key}), |
---|
| 56 | $entry, |
---|
| 57 | "$prefix: by key: $key: object", |
---|
| 58 | ); |
---|
| 59 | } |
---|
| 60 | else { |
---|
| 61 | fail("$prefix: by key: $key"); |
---|
| 62 | } |
---|
| 63 | } |
---|
| 64 | } |
---|
| 65 | |
---|
| 66 | # TODO: tests loading of browser mapping |
---|
| 67 | |
---|
| 68 | __END__ |
---|