->json_is('/item/description' => "新しい説明");
# export
- unlink("/var/newslash/repository/feeds.json");
+ unlink("/var/tmp/feeds.json");
$t->get_ok("/api/v1/admin/repository/export?target=feeds")
->status_is(200);
- ok(-e "/var/newslash/repository/feeds.json", "feeds.json generated");
+ ok(-e "/var/tmp/feeds.json", "feeds.json generated");
# import
$t->get_ok("/api/v1/admin/repository/import?target=feeds")
->status_is(200);
- unlink("/var/newslash/repository/feeds.json");
+ unlink("/var/tmp/feeds.json");
# delete
$params = { action => "delete",
use Test::More;
use Test::Mojo;
use JSON;
+use File::Temp;
use Data::Dumper;
use DateTime;
}
# export test
- $rs = $c->export_json(file => "cow_test.json",
+ my $fname = File::Temp::tmpnam();
+ $rs = $c->export_json(file => $fname,
table => "cow_test",
exclude => [qw(id hoge)],
sort_key => "bar",
]
EOL
# check file
- my $fh = FileHandle->new("cow_test.json", "r");
+ my $fh = FileHandle->new($fname, "r");
ok($fh, "open test file");
my $content = do { local $/; <$fh> };
$fh->close;
- ok($content, "read from cow_test.json");
- is($json_ok, $content, "check cow_test.json conent");
- ok(unlink("cow_test.json"), "delete cow_test.json");
+
+ ok($content, "read from test file");
+ is($json_ok, $content, "check test file's conent");
+ ok(unlink($fname), "delete test file");
# import test
my $test_data2 = [ { foo => "abcdefg", bar => 200, hoge => "hogehoge" },