← Back to branch summary

~ubuntu-branches/ubuntu/hardy/libbit-vector-perl/hardy

« back to all changes in this revision

Viewing changes to t/01________new.t

  • Committer: Bazaar Package Importer
  • Author(s): Christian Hammers
  • Date: 2003-06-22 17:07:23 UTC
  • Revision ID: james.westby@ubuntu.com-20030622170723-lg3vf3immzx0p0a8
Tags: 6.3-1
* New upstream release
* Changed section to "perl".
* Raised standards version.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/01________new.t
1
1
#!perl -w
2
2
 
3
3
use strict;
 
4
use integer;
4
5
no strict "vars";
5
6
use integer;
6
7
 
36
37
{print "ok $n\n";} else {print "not ok $n\n";}
37
38
$n++;
38
39
 
 
40
print STDERR "n=$n\n";
 
41
 
39
42
# test if the copy of an object reference works as expected:
40
43
 
41
44
$ref = $set;
171
174
if (ref($ref) eq 'Bit::Vector')
172
175
{print "ok $n\n";} else {print "not ok $n\n";}
173
176
$n++;
 
177
 
174
178
if (${$ref} != 0)
175
179
{print "ok $n\n";} else {print "not ok $n\n";}
176
180
$n++;