1############################################################################### 2# # 3# Geo::Postcodes::NO Test Suite 8 - Exporter # 4# -------------------------------------------------- # 5# Arne Sommer - perl@bbop.org - 11. September 2006 # 6# # 7############################################################################### 8# # 9# Before `make install' is performed this script should be runnable with # 10# `make test'. After `make install' it should work as `perl 8_exporter.t'. # 11# # 12############################################################################### 13 14# Note that the module do not export anything at present. This may change. # 15 16use Test::More tests => 6; 17 18BEGIN { use_ok('Geo::Postcodes::NO', 0.30) }; 19 20############################################################################### 21 22my @validity = qw(valid legal); 23can_ok('Geo::Postcodes::NO', @validity); 24 25can_ok('Geo::Postcodes::NO', 'get_postcodes'); 26 27can_ok('Geo::Postcodes::NO', 'get_fields', 'is_field'); 28 29my @fields = Geo::Postcodes::NO::get_fields(); 30can_ok('Geo::Postcodes::NO', @fields); 31 32my @selection = qw(selection selection_loop); 33 34can_ok('Geo::Postcodes::NO', @selection); 35 36