#
#
#  testcommon.pl includes a couple of skeleton scripts which are used to debug the stuff in tightknot_common.pl
#
#


use strict;
use warnings;
use File::Slurp;
use File::Copy;
use File::Path;
use Data::Dumper;

require 'tightknot_common.pl';

my @vects;
@vects = <./vects/*#*.vect>;

foreach (@vects) {

  my %parsed;
  %parsed = parsefilename($_);

  my @standardsummands; 

  foreach(@{$parsed{summands}}) { push(@standardsummands,standardknottype($_)); }

  print "Parsed filename $_ and got...\n";
  print "\t Summands: @{$parsed{summands}} \n";
  print "\t Standard Summands: @standardsummands \n";
  print "\t Knot Type: $parsed{knottype} \n";
  print "\t Tag : $parsed{tag} \n";
  print "\n";

}


  

