1use strict; 2use warnings; 3use utf8; 4 5use Test::More; 6use Test::Exception; 7use rlib '../lib', './lib'; 8 9use Geo::ShapeFile; 10use Geo::ShapeFile::Shape; 11use Geo::ShapeFile::Point; 12 13# should use $FindBin::bin for this 14use FindBin; 15my $dir = "$FindBin::Bin/test_data"; 16 17my $fname = 'unicode_name_ñøß.shp'; 18 19lives_ok ( 20 sub {my $shp = Geo::ShapeFile->new("$dir/$fname")}, 21 'opens unicode file name', 22); 23 24dies_ok ( 25 sub {my $shp = Geo::ShapeFile->new("$dir/nonexistent_$fname")}, 26 'dies on unicode file name that does not exist', 27); 28 29 30 31done_testing(); 32 33