Revive -d option to dump vecs as ascii file
Change-Id: Ib78b6ad00af74aaf410544f8c872ac6cf67e90e8
diff --git a/t/test.t b/t/test.t
index f45afb3..c080f2f 100644
--- a/t/test.t
+++ b/t/test.t
@@ -1,6 +1,7 @@
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::TempFile;
+use Test::More tests => 4;
use Mojo::JSON qw(decode_json encode_json to_json);
use_ok('IDS::DeReKoVecs::Read');
@@ -28,4 +29,12 @@
is( $res->{collocates}->[0]->{word}, "diesem", "primary collocate of Grund" );
};
+subtest 'dump ascii vecs' => sub {
+ my $t = Test::TempFile->new();
+ $res = IDS::DeReKoVecs::Read::dump_vecs($t->path);
+ $t->exists_ok
+ ->content_like(qr/^10544 200.*/, 'ascii vecs dump')
+ ->content_like(qr/Wortzeichen -?[01]\.[0-9]/, 'ascii vecs dump contains some words');
+};
+
done_testing;