use new union api

1 files changed, 0 insertions, 23 deletions

diff --git a/extools/test_data/make_len_cats.pl b/extools/test_data/make_len_cats.pl
deleted file mode 100755
index 25ef75fa..00000000
--- a/extools/test_data/make_len_cats.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-my $max_len = 15;
-my @cat_names = qw( NULL SHORT SHORT MID MID MID LONG LONG LONG LONG LONG VLONG VLONG VLONG VLONG VLONG );
-
-while(<>) {
-  chomp;
-  my @words = split /\s+/;
-  my $len = scalar @words;
-  my @spans;
-  for (my $i =0; $i < $len; $i++) {
-    for (my $k = 1; $k <= $max_len; $k++) {
-      my $j = $i + $k;
-      next if ($j > $len);
-      my $cat = $cat_names[$k];
-      die unless $cat;
-      push @spans, "$i-$j:$cat";
-    }
-  }
-  print "@spans\n";
-}
-