#!perl -T

use Test::More tests => 4;
use Parse::Tektronix::ISF;

$isf = 't/test.isf';
$csv = 't/test.csv';
$ret = Parse::Tektronix::ISF::ConvertToCSV($isf);
ok((-e $csv), "check if csv file is converted");
ok($ret, "check return value of ConvertToCSV()");
open F, $csv;
while ($l = <F>) {
    last if $. == 6450;
}
close F;
chomp $l;
($x, $y) = split /,/, $l;
ok($x == -1.102e-07, 'check x value written in CSV file');
ok($y == 0.0113625, 'check y value written in CSV file');