"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "IO/HDF/t/hdf_vgroup.t" between
PDL-2.081.tar.gz and PDL-2.082.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

hdf_vgroup.t  (PDL-2.081)	:	hdf_vgroup.t  (PDL-2.082)
skipping to change at line 29		skipping to change at line 29
PDL::IO::HDF::VS::_Vstart( $Hid );		PDL::IO::HDF::VS::_Vstart( $Hid );
my $vgroup_id = PDL::IO::HDF::VS::_Vattach( $Hid, -1, "w" );		my $vgroup_id = PDL::IO::HDF::VS::_Vattach( $Hid, -1, "w" );
PDL::IO::HDF::VS::_Vsetname( $vgroup_id, 'vgroup_name' );		PDL::IO::HDF::VS::_Vsetname( $vgroup_id, 'vgroup_name' );
PDL::IO::HDF::VS::_Vsetclass( $vgroup_id, 'vgroup_class' );		PDL::IO::HDF::VS::_Vsetclass( $vgroup_id, 'vgroup_class' );
my $vgroup_ref = PDL::IO::HDF::VS::_Vgetid( $Hid, -1 );		my $vgroup_ref = PDL::IO::HDF::VS::_Vgetid( $Hid, -1 );
ok( $vgroup_ref != PDL::IO::HDF->FAIL );		ok( $vgroup_ref != PDL::IO::HDF->FAIL );
my $name = "";		is( PDL::IO::HDF::VS::_Vgetname($vgroup_id), "vgroup_name" );
PDL::IO::HDF::VS::_Vgetname( $vgroup_id, $name);		is( PDL::IO::HDF::VS::_Vgetclass( $vgroup_id ), "vgroup_class" );
ok( $name eq "vgroup_name" );
my $class = "";
PDL::IO::HDF::VS::_Vgetclass( $vgroup_id, $class);
ok( $class eq "vgroup_class" );
PDL::IO::HDF::VS::_Vdetach( $vgroup_id );		PDL::IO::HDF::VS::_Vdetach( $vgroup_id );
PDL::IO::HDF::VS::_Vend( $Hid );		PDL::IO::HDF::VS::_Vend( $Hid );
ok( PDL::IO::HDF::VS::_Hclose( $Hid ) );		ok( PDL::IO::HDF::VS::_Hclose( $Hid ) );
my $vOBJ = PDL::IO::HDF::VS->new( "+$testfile" );		my $vOBJ = PDL::IO::HDF::VS->new( "+$testfile" );
ok( defined($vOBJ) );		ok( defined($vOBJ) );
End of changes. 1 change blocks.
7 lines changed or deleted		2 lines changed or added

---