### ----------------------------------------------------
### -- Parse::STDF
### -- Licenses: 
### -- Authors: Erick Jordan <ejordan@cpan.org>
### -- File: t/02-record.t
### ----------------------------------------------------
use v6;
use Test;
use Parse::STDF;

plan 2;

try
{
  use-ok 'Parse::STDF';
  my $s = Parse::STDF.new( stdf => "t/data/test.stdf" );
  my $rec_count = 0;
  while $s.get_record { $rec_count++; }
  is $rec_count, 22, 'Read 22 records from test.stdf';
  CATCH
  {
    when X::Parse::STDF::LibraryMissing { 
       diag $_.message; 
       # skip-rest('prerequisite failed');
    }
  }
}


