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