diff options
author | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-05-22 19:56:08 -0700 |
---|---|---|
committer | Jonathan "Duke" Leto <jonathan@leto.net> | 2011-05-22 19:56:08 -0700 |
commit | 315236b6b34ae6dc2c85261b4b08d1e7881ba5ab (patch) | |
tree | a7977e754f2071164fe8a5c672fb8a351a136c96 | |
parent | Rename our hook data YAML to be more descriptive (diff) | |
download | jitterbug-315236b6b34ae6dc2c85261b4b08d1e7881ba5ab.tar.gz |
Use catfile for portability
-rw-r--r-- | eg/post_hook.t | 3 | ||||
-rw-r--r-- | t/003_hook_route.t | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/eg/post_hook.t b/eg/post_hook.t index 8e2e9e6..4165f46 100644 --- a/eg/post_hook.t +++ b/eg/post_hook.t @@ -5,8 +5,9 @@ use LWP::UserAgent; use HTTP::Request::Common; use YAML qw/LoadFile/; use JSON; +use File::Spec::Functions; -my $content = LoadFile('t/data/hook_data.yml'); +my $content = LoadFile(catfile(qw/t data hook_data.yml/)); my $payload = JSON::encode_json($content); my $url = "http://localhost:5000/hook/"; diff --git a/t/003_hook_route.t b/t/003_hook_route.t index cfd914b..0361b15 100644 --- a/t/003_hook_route.t +++ b/t/003_hook_route.t @@ -13,8 +13,10 @@ use File::Temp qw/tempdir/; use Dancer::Test; use Dancer::Config qw/setting/; +use File::Spec::Functions; +my $hook_data = catfile(qw/t data hook_data.yml/); -my $content = LoadFile('t/data/hook_data.yml'); +my $content = LoadFile($hook_data); my $db_dir = tempdir( CLEANUP => 1 ); my $db_file = File::Spec->catfile( $db_dir, 'jitterbug.db' ); |