1 files changed, 11 insertions, 0 deletions
diff --git a/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl b/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl
new file mode 100755
index 0000000..38caf2d
--- /dev/null
+++ b/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl
@@ -0,0 +1,11 @@
+#!/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";
+}