diff options
| -rw-r--r-- | Ivy.pm | 8 | ||||
| -rw-r--r-- | test.pl | 24 |
2 files changed, 27 insertions, 5 deletions
@@ -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; } @@ -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; |