Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\Net-DNS-0.48\t\03-question.t
# $Id: 03-question.t 01-jun-2005.19:13:06 afontana Exp $ use Test::More tests => 11; use strict; BEGIN { use_ok('Net::DNS'); } my $domain = 'example.com'; my $type = 'MX'; my $class = 'IN'; my $q = Net::DNS::Question->new($domain, $type, $class); ok($q, 'new() returned something.'); is($q->qname, $domain, 'qname()' ); is($q->qtype, $type, 'qtype()' ); is($q->qclass, $class, 'qclass()' ); # # Check the aliases # is($q->zname, $domain, 'zname()' ); is($q->ztype, $type, 'ztype()' ); is($q->zclass, $class, 'zclass()' ); # # Check that we can change stuff # $q->qname('example.net'); $q->qtype('A'); $q->qclass('CH'); is($q->qname, 'example.net', 'qname()' ); is($q->qtype, 'A', 'qtype()' ); is($q->qclass, 'CH', 'qclass()' );
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de