tests/tsort/Test.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

# -*-perl-*-
package Test;
require 5.002;
use strict;

my @tv = (
#test   options   input   expected-output   expected-return-code
#
["cycle-1", '', "t b\nt s\ns t\n", "FIXME", 0],

);

sub test_vector
{
  return @tv;
}

1;