# split BEACON format link without validating or expanding

# line parsing (invalid URI not checked) %t = ( "qid" => ["qid","","",""], "qid|\t" => ["qid","","",""], "qid|" => ["qid","","",""], "qid|lab" => ["qid","lab","",""], "qid| lab |dsc" => ["qid","lab","dsc",""], "qid| | dsc" => ["qid","","dsc",""], " qid||dsc" => ["qid","","dsc",""], "qid |u:ri" => ["qid","","","u:ri"], "qid |lab |dsc|u:ri" => ["qid","lab","dsc","u:ri"], "qid|lab|u:ri" => ["qid","lab","","u:ri"], " \t" => [], "" => [], "qid|lab|dsc|u:ri|foo" => ["qid","lab","dsc","u:ri"] "|qid|u:ri" => [], "qid|lab|dsc|abc" => "URI part has not valid URI form: abc", ); while (my ($line, $link) = each(%t)) { # my @l = $b->appendline( $line ); use Data::Dumper; print "L:$line\n"; print Dumper(\@l)."\n"; #$r = parsebeaconlink( $line ); # without prefix or target #is_deeply( \@l, $link ); }