1
2use strict;
3
4print "1..3\n";
5my $ok = require RPC::PlServer::Comm;
6printf("%sok 1\n", ($ok ? "" : "not "));
7$ok = require RPC::PlServer;
8printf("%sok 2\n", ($ok ? "" : "not "));
9$ok = require RPC::PlClient;
10printf("%sok 3\n", ($ok ? "" : "not "));
11