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

plan 23;

try
{
  use-ok 'Parse::STDF';
  my $s = Parse::STDF.new( stdf => "t/data/test.stdf" );
  my %rec_names = :MIR(0), :SDR(0), :PCR(0), :MRR(0), :WIR(0), :PIR(0), :DTR(0), :ATR(0), :HBR(0),
                  :SBR(0), :PMR(0), :PGR(0), :PLR(0), :RDR(0), :WRR(0), :WCR(0), :TSR(0), :MPR(0), 
                  :FTR(0), :BPS(0), :EPS(0);
  while $s.get_record { %rec_names{$s.recname}++; }
  for %rec_names.kv -> $k, $v { ok $v > 0, "Checked record name: $k"; }
  CATCH
  {
    when X::Parse::STDF::LibraryMissing { 
       diag $_.message; 
       # skip-rest('missing prereq');
    }
  }
}



