From: hadaq <hadaq>
Date: Wed, 1 Feb 2012 11:10:25 +0000 (+0000)
Subject: newperl module for trbnetd
X-Git-Tag: v6.0~77
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=b8600def5443731038902f4e1449e40312300f7a;p=trbnettools.git

newperl module for trbnetd
---

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;
+}