Commit 7ea70697 authored by Morten Welinder's avatar Morten Welinder

Tests: add basic test for ssconvert's merge-to feature.

parent b8f6e211
......@@ -173,6 +173,7 @@ TESTS = t1000-statfuns.pl \
t9002-ssdiff-self.pl \
t9003-ssdiff-xml.pl \
t9004-ssdiff-highlight.pl \
t9005-ssconvert-merge.pl \
t9010-ssgrep.pl \
t9100-number-match.pl \
t9999-epilogue.pl
......
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check ssconvert merge");
my $src1 = "$samples/regress.gnumeric";
my $src2 = "$samples/format-tests.gnumeric";
my $tmp = "merged.gnumeric";
&GnumericTest::junkfile ($tmp);
# Not much of a test, but this at least confirms that the program
# runs with no criticals.
&test_command ("$ssconvert --merge-to=$tmp $src1 $src2",
sub { 1 } );
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment