aboutsummaryrefslogtreecommitdiff
path: root/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl
diff options
context:
space:
mode:
Diffstat (limited to 'gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl')
-rwxr-xr-xgfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl11
1 files changed, 0 insertions, 11 deletions
diff --git a/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl b/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl
deleted file mode 100755
index 38caf2d..0000000
--- a/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl -w
-
-use Gfsm;
-
-$fsmfile = @ARGV ? shift : '-';
-$fsm = Gfsm::Automaton->new();
-die("$0: load failed for '$fsmfile': $!") if (!$fsm->load($fsmfile));
-
-foreach $qid (0..($fsm->n_states-1)) {
- print $qid, "\t", $fsm->out_degree($qid), "\n";
-}