-# $Id: Ping.pm,v 1.1 2006-06-20 16:32:42 mike Exp $
+# $Id: Ping.pm,v 1.3 2006-06-21 16:10:18 mike Exp $
# See the "Main" test package for documentation
sub run {
my $this = shift();
+ my $irspy = $this->irspy();
+ my $pod = $irspy->pod();
- print "Running 'Ping' test\n";
- ### Now actually do it
+ $pod->callback(ZOOM::Event::CONNECT, \&connected);
+ my $err = $pod->wait($irspy);
+
+ return 0;
+}
+
+
+sub connected {
+ my($conn, $irspy, $rs, $event) = @_;
+
+ my $rec = $irspy->record($conn);
+ $irspy->log("irspy_test", $conn->option("host"), " connected");
+ ### Note the successful connection in $rec
return 0;
}
# Some of this Pod-using code may be useful.
#
-#my $pod = new ZOOM::Pod(@ARGV);
#$pod->option(elementSetName => "b");
#$pod->callback(ZOOM::Event::RECV_SEARCH, \&completed_search);
#$pod->callback(ZOOM::Event::RECV_RECORD, \&got_record);