1#!/usr/bin/perl -w
2
3use Net::DRI::Protocol;
4
5use Test::More tests => 7;
6
7my $p;
8$p=Net::DRI::Protocol->new();
9isa_ok($p,'Net::DRI::Protocol');
10is($p->message(),undef,'empty message at init');
11is_deeply($p->capabilities(),{},'empty capabilities at init');
12
13$p->name('myname');
14$p->version('1.5');
15
16is($p->name(),'myname','name()');
17is($p->version(),'1.5','version()');
18is($p->nameversion(),'myname/1.5','nameversion()');
19
20TODO: {
21	local $TODO='other tests (factories, commands)';
22	ok(0);
23}
24
25exit 0;
26