From 98f0956efe1746071f4772e476aca5c4558c57de Mon Sep 17 00:00:00 2001
From: damiano
Date: Wed, 2 Feb 2000 14:25:57 +0000
Subject: Add test file to get rid of typos

---
 Ivy.pm  |  8 +++-----
 test.pl | 24 ++++++++++++++++++++++++
 2 files changed, 27 insertions(+), 5 deletions(-)
 create mode 100644 test.pl

diff --git a/Ivy.pm b/Ivy.pm
index 735d632..4bf8663 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -17,8 +17,6 @@
 
 package Ivy ;
 
-require 5.005 ;
-
 use Sys::Hostname;
 use IO::Socket;
 use strict ;
@@ -592,7 +590,7 @@ sub start ($)
 
     
     # et on envoie envoie le bonjour : "no de version no de port"
-    my $bonjourMsg = sprintf ("%d %d\n", VERSION, $connSock->sockport());
+    my $bonjourMsg = sprintf ("%d %d\n", $VERSION, $connSock->sockport());
     
     foreach my $netBroadcastAddr (@{$self->[broadcastBuses]}) {
 	send ($self->[supSock], $bonjourMsg, 0, $netBroadcastAddr) or 
@@ -945,9 +943,9 @@ sub _getBonjour ($)
     return;
   }
 
-  if ($version != VERSION) {
+  if ($version != $VERSION) {
     warn "Attention : Ivy::_getBonjour VERSION: demande de connexion de ".
-      "$peerName\n version courrante : " . VERSION . ", recue : $version\n" ;
+      "$peerName\n version courrante : " . $VERSION . ", recue : $version\n" ;
     return;
   }
     
diff --git a/test.pl b/test.pl
new file mode 100644
index 0000000..53567de
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,24 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+######################### We start with some black magic to print on failure.
+
+# Change 1..1 below to 1..last_test_to_print .
+# (It may become useful if the test is moved to ./t subdirectory.)
+
+BEGIN { $| = 1; print "1..1\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use Ivy;
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+# Insert your test code below (better if it prints "ok 13"
+# (correspondingly "not ok 13") depending on the success of chunk 13
+# of the test code):
+Ivy->init(-loopMode => 'LOCAL',
+	  -appName => 'testivy',
+	  -ivyBus => '127.255.255.2552508');
+
+1;
-- 
cgit v1.1