From b8600def5443731038902f4e1449e40312300f7a Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Wed, 1 Feb 2012 11:10:25 +0000
Subject: [PATCH] newperl module for trbnetd

---
 libtrbnet_perl/test/HADES-TrbNet.t | 15 +++++++++++++++
 libtrbnet_perl/test/test.pl        | 19 +++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 libtrbnet_perl/test/HADES-TrbNet.t
 create mode 100755 libtrbnet_perl/test/test.pl

diff --git a/libtrbnet_perl/test/HADES-TrbNet.t b/libtrbnet_perl/test/HADES-TrbNet.t
new file mode 100644
index 0000000..0865a85
--- /dev/null
+++ b/libtrbnet_perl/test/HADES-TrbNet.t
@@ -0,0 +1,15 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl HADES-TrbNet.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 1;
+BEGIN { use_ok('HADES::TrbNet') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
diff --git a/libtrbnet_perl/test/test.pl b/libtrbnet_perl/test/test.pl
new file mode 100755
index 0000000..9456e28
--- /dev/null
+++ b/libtrbnet_perl/test/test.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Data::Dumper;
+#use Data::HexDump;
+
+use HADES::TrbNet qw(trb_uid init_ports);
+
+my $connect_status = init_ports();
+
+my @res = trb_uid(0xffff);
+
+#print Dumper \@res;
+for (my $k = 0; $k < scalar @res; $k += 4) {
+	my $uid = ($res[$k] << 32) | $res[$k + 1];
+    my $endP = $res[$k + 2];
+    my $sender =  $res[$k + 3]; 
+    printf "0x%04x  0x%016x  0x%02x\n",  $sender, $uid , $endP;
+}
-- 
2.43.0