#!/usr/bin/perl -w
use strict;
use Test;
open(F, "t/list") || die "list: $!";
our @tests = grep { chomp; ! /^#/ } <F>;
close F;
plan tests => scalar @tests;
# load module
use String::Canonical qw/cstr_cmp/;
# run through tests
ok(cstr_cmp(split '=')) || print STDERR " > $_\n" for @tests;