Astro-FITS-CFITSIO

 view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

			q!KY_IKYE =          -1.2346E+01 / ikye comment!,
			q!KY_IKYD = -1.23456789012346E+01 / modified comment!,
			q!KY_IKYF =             -12.3456 / ikyf comment!,
			q!KY_IKYG =    -12.3456789012346 / ikyg comment!,
			q!KY_PKNS1= 'first string'       / fxpkns comment!,
		]
	) and $status == 0
);

pre_test('ffucrd/ffukyX');
ffucrd($fptr,'KY_MREC',"KY_UCRD = 'This keyword was updated by fxucrd'",$status);
ffukyj($fptr,'KY_IKYJ',51,'&',$status);
ffukyl($fptr,'KY_IKYL',1,'&',$status); 
ffukys($fptr,'NEWIKYS',"updated_string",'&',$status);
ffukye($fptr,'KY_IKYE',-13.3456, 4,'&',$status);
ffukyd($fptr,'KY_IKYD',-13.345678901234567, 14,'modified comment',$status);
ffukyf($fptr,'KY_IKYF',-13.3456, 4,'&',$status);
ffukyg($fptr,'KY_IKYG',-13.345678901234567, 13,'&',$status);
@tmp=();
for ($ii=$keynum-4; $ii<=$keynum+5;$ii++) { 
	ffgrec($fptr,$ii,$card,$status);  
	push @tmp,$card;
}
post_test(
	cmp_str_arrays(
		\@tmp,
		[
			q!COMMENT   This keyword was modified by fxmrec!,
			q!KY_UCRD = 'This keyword was updated by fxucrd'!,
			q!NEWIKYS = 'updated_string'     / ikys comment!,
			q!KY_IKYJ =                   51 / This is a modified comment!,
			q!KY_IKYL =                    T / ikyl comment!,
			q!KY_IKYE =          -1.3346E+01 / ikye comment!,
			q!KY_IKYD = -1.33456789012346E+01 / modified comment!,
			q!KY_IKYF =             -13.3456 / ikyf comment!,
			q!KY_IKYG =    -13.3456789012346 / ikyg comment!,
			q!KY_PKNS1= 'first string'       / fxpkns comment!,
		]
	) and $status == 0
);

test.pl  view on Meta::CPAN

			q!KEY_PKYJ=                   11 / [feet/second/second] fxpkyj comment!,
			q!KEY_PKYF=             12.12121 / fxpkyf comment!,
			q!KEY_PKYE=         1.313131E+01 / fxpkye comment!,
			q!KEY_PKYG=    14.14141414141414 / fxpkyg comment!,
			q!KEY_PKYD= 1.51515151515152E+01 / fxpkyd comment!,
			q!KEY_PKYC= (1.313131E+01, 1.414141E+01) / fxpkyc comment!,
			q!KEY_PKYM= (1.51515151515152E+01, 1.61616161616162E+01) / fxpkym comment!,
			q!KEY_PKFC= (13.131313, 14.141414) / fxpkfc comment!,
			q!KEY_PKFM= (15.15151515151515, 16.16161616161616) / fxpkfm comment!,
			q!KEY_PKYT= 12345678.1234567890123456 / fxpkyt comment!,
			q!NEWIKYS = 'updated_string'     / ikys comment!,
		]
	)
);
$status = 0;

pre_test('ffcpky');
ffcpky($fptr,$fptr,1,4,'KY_PKNE',$status); 
ffgkns($fptr,'ky_pkne',2,4,$inekey,$nfound,$status);
post_test(
	$status == 0 and

testprog/testprog.pl  view on Meta::CPAN

	ffgrec($fptr,$ii,$card,$status);
	print $card,"\n";
}

$status and print "ERROR modifying keywords\n";

############################
#  update keywords         #
############################

ffucrd($fptr,'KY_MREC',"KY_UCRD = 'This keyword was updated by fxucrd'",$status);

ffukyj($fptr,'KY_IKYJ',51,'&',$status);
ffukyl($fptr,'KY_IKYL',1,'&',$status);
ffukys($fptr,'NEWIKYS',"updated_string",'&',$status);
ffukye($fptr,'KY_IKYE',-13.3456, 4,'&',$status);
ffukyd($fptr,'KY_IKYD',-13.345678901234567, 14,'modified comment',$status);
ffukyf($fptr,'KY_IKYF',-13.3456, 4,'&',$status);
ffukyg($fptr,'KY_IKYG',-13.345678901234567, 13,'&',$status);

print "\nAfter updating the keywords...\n";
for ($ii=$keynum-4; $ii<=$keynum+5;$ii++) {
	ffgrec($fptr,$ii,$card,$status);
	print $card,"\n";
}

testprog/testprog_OO.pl  view on Meta::CPAN

	$fptr->read_record($ii,$card,$status);
	print $card,"\n";
}

$status and print "ERROR modifying keywords\n";

############################
#  update keywords         #
############################

$fptr->update_card('KY_MREC',"KY_UCRD = 'This keyword was updated by fxucrd'",$status);

$fptr->update_key_lng('KY_IKYJ',51,'&',$status);
$fptr->update_key_log('KY_IKYL',1,'&',$status);
$fptr->update_key_str('NEWIKYS',"updated_string",'&',$status);
$fptr->update_key_flt('KY_IKYE',-13.3456, 4,'&',$status);
$fptr->update_key_dbl('KY_IKYD',-13.345678901234567, 14,'modified comment',$status);
$fptr->update_key_fixflt('KY_IKYF',-13.3456, 4,'&',$status);
$fptr->update_key_fixdbl('KY_IKYG',-13.345678901234567, 13,'&',$status);

print "\nAfter updating the keywords...\n";
for ($ii=$keynum-4; $ii<=$keynum+5;$ii++) {
	$fptr->read_record($ii,$card,$status);
	print $card,"\n";
}

testprog/testprog_longnames.pl  view on Meta::CPAN

	fits_read_record($fptr,$ii,$card,$status);
	print $card,"\n";
}

$status and print "ERROR modifying keywords\n";

############################
#  update keywords         #
############################

fits_update_card($fptr,'KY_MREC',"KY_UCRD = 'This keyword was updated by fxucrd'",$status);

fits_update_key_lng($fptr,'KY_IKYJ',51,'&',$status);
fits_update_key_log($fptr,'KY_IKYL',1,'&',$status);
fits_update_key_str($fptr,'NEWIKYS',"updated_string",'&',$status);
fits_update_key_flt($fptr,'KY_IKYE',-13.3456, 4,'&',$status);
fits_update_key_dbl($fptr,'KY_IKYD',-13.345678901234567, 14,'modified comment',$status);
fits_update_key_fixflt($fptr,'KY_IKYF',-13.3456, 4,'&',$status);
fits_update_key_fixdbl($fptr,'KY_IKYG',-13.345678901234567, 13,'&',$status);

print "\nAfter updating the keywords...\n";
for ($ii=$keynum-4; $ii<=$keynum+5;$ii++) {
	fits_read_record($fptr,$ii,$card,$status);
	print $card,"\n";
}

testprog/testprog_pdl.pl  view on Meta::CPAN

	$fptr->read_record($ii,$card,$status);
	print $card,"\n";
}

$status and print "ERROR modifying keywords\n";

############################
#  update keywords         #
############################

$fptr->update_card('KY_MREC',"KY_UCRD = 'This keyword was updated by fxucrd'",$status);

$fptr->update_key_lng('KY_IKYJ',51,'&',$status);
$fptr->update_key_log('KY_IKYL',1,'&',$status);
$fptr->update_key_str('NEWIKYS',"updated_string",'&',$status);
$fptr->update_key_flt('KY_IKYE',-13.3456, 4,'&',$status);
$fptr->update_key_dbl('KY_IKYD',-13.345678901234567, 14,'modified comment',$status);
$fptr->update_key_fixflt('KY_IKYF',-13.3456, 4,'&',$status);
$fptr->update_key_fixdbl('KY_IKYG',-13.345678901234567, 13,'&',$status);

print "\nAfter updating the keywords...\n";
for ($ii=$keynum-4; $ii<=$keynum+5;$ii++) {
	$fptr->read_record($ii,$card,$status);
	print $card,"\n";
}