RepoMirrors/ceph
1
0
Fork 0
mirror of https://github.com/ceph/ceph synced 2024-12-22 11:31:55 +00:00
Code Issues Packages Projects Releases Wiki Activity
fe19a1dba6
ceph/qa/qa_scripts/rbd_cli_tests.pl
tamil 7c8d3d053a added new cli tests 
Signed-off-by: tamil <tamil.muthamizhan@inktank.com>
2013-02-11 17:29:03 -08:00

387 lines
13 KiB
Perl
Executable File
Raw Blame History

#! /usr/bin/perl
=head1 NAME
rbd_cli_tests.pl - Script to test the RBD CLI commands and report the
test results
=head1 SYNOPSIS
Use:
perl rbd_cli_tests.pl [--pool pool_name][--help]
Examples:
perl rbd_cli_tests.pl --pool test_pool
or
perl rbd_cli_tests.pl --help
=head1 DESCRIPTION
This script intends to test the RBD CLI commands for the scenarios mentioned below
and reports the test results
Positive cases
Negative cases
-- Boundary value testing
-- Incorrect Parameter values/ Incorrect field values
-- Insufficient parameters / Extra parameters
=head1 ARGUMENTS
rbd_cli_tests.pl takes the following arguments:
--pool
(optional) If not specified, rbd pool is used.
--help
(optional) Displays the usage message.
If cephx is enabled, set 'export CEPH_ARGS="--keyring /etc/ceph/ceph.keyring --id <user>"'
and execute the script as root.
For Example,for "nova" user, 'export CEPH_ARGS="--keyring /etc/ceph/ceph.keyring --id nova"'
=cut
use Cwd;
use RbdLib qw(perform_action create_image resize_image rename_image copy_image list_image info_image export_image import_image remove_image create_snapshots protect_snapshot unprotect_snapshot clone_image rollback_snapshots purge_snapshots list_snapshots remove_snapshot rbd_map rbd_unmap rbd_showmapped display_result _pre_clean_up _post_clean_up _create_rados_pool display_ceph_os_info $RADOS_MKPOOL $RADOS_RMPOOL $RBD_CREATE $RBD_RESIZE $RBD_INFO $RBD_REMOVE $RBD_RENAME $RBD_MV $RBD_LS $RBD_LIST $RBD_CLONE $RBD_EXPORT $RBD_IMPORT $RBD_CP $RBD_COPY $SNAP_CREATE $SNAP_PROTECT $SNAP_UNPROTECT $SNAP_LS $SNAP_LIST $SNAP_ROLLBACK $SNAP_PURGE $SNAP_REMOVE $POOL_RM_SUCCESS $POOL_MK_SUCCESS $RBD_EXISTS_ERR $RBD_WATCH $RBD_MAP $RBD_UNMAP $RBD_SHOWMAPPED $RBD_CHILDREN $RBD_FLATTEN get_command_output debug_msg $CLI_FLAG);
use Pod::Usage();
use Getopt::Long();
use strict;
my ( $help, $pool );
Getopt::Long::GetOptions(
'pool=s' => \$pool,
'help' => \$help
);
Pod::Usage::pod2usage( -verbose => 1 ) if ($help);
our $pool_name = "rbd";
$pool_name = $pool if ($pool);
#===========Variables used in the script========
our $img_name = "test_img";
our $snap_name = "snap1";
our $snap_name2 = "snap2";
our $snap_name3 = "snap3";
our $snap_name4 = "snap4";
our $snap_name5 = "snap5";
our $snap_new = "snap_new";
our $clone_new = "clone_new";
our $clone_new1 = "clone_new1";
our $clone_new2 = "clone_new2";
our $snap_test = "snap_test";
our $new_rbd_img = "new_rbd_img";
our $non_existing_img = "rbdimage";
our $cp_new = "newest";
our $exp_file = "rbd_test_file1";
our $exp_file1 = "rbd_test_file2";
our $exp_file2 = "rbd_test_file3";
our $rbd_imp_file = "test_file";
our $rbd_imp_image = "new_imp_img";
our $content = "This is a test file";
our $rbd_snap_new = "new";
our $neg_img_name = "neg_img";
our $new_img_name = "new_img";
our $max_img_name = "max_img";
our $img_name1 = "testing_img1";
our $rbd_imp_test = "new_test_file";
our $non_pool_name = "no_pool";
our $no_snap = "no_snap";
our $img_name_mv = "new_img_mv";
our $test_log = "logfile.txt";
our $success = "test_completed.txt";
our $fail = "log.txt";
our $exec_cmd;
our $MSG;
our $pool_name;
our $CLI_FLAG = "TRUE";
# Tests for create image
sub create_image {
perform_action ( $RBD_CREATE, "$img_name,pool $pool_name,size 1024", 0 );
perform_action( $RBD_CREATE, "$img_name_mv,pool $pool_name,size 1024", 0 );
perform_action( $RBD_CREATE, "$img_name_mv,pool $pool_name,size 0,order 22",
1 );
perform_action( $RBD_CREATE, "$img_name1,pool $pool_name,size 0", 0 );
perform_action( $RBD_CREATE, "$neg_img_name,pool $pool_name,size -1", 2 );
perform_action( $RBD_CREATE, "$img_name1 pool $pool_name", 2 );
perform_action( $RBD_CREATE, "--size 1024", 2 );
perform_action( $RBD_CREATE,
"$max_img_name,pool $pool_name,size 1024000000000", 0 );
perform_action( $RBD_CREATE, "$img_name1,pool $pool_name,size 2048,order",
2 );
perform_action( $RBD_CREATE, "$img_name1,pool $pool_name,size,order 22",
2 );
perform_action( $RBD_CREATE,
"$new_img_name,pool $pool_name,size 1024,new-format", 0 );
}
# Tests to create snapshot
sub create_snapshots {
perform_action( $SNAP_CREATE, "--snap $snap_name $pool_name\/$img_name",
0 );
perform_action( $SNAP_CREATE, "--snap $snap_name $pool_name\/$img_name",
1 );
perform_action( $SNAP_CREATE, "$snap_name", 2 );
perform_action($SNAP_CREATE,"--snap $snap_name2 $pool_name\/$img_name",0);
perform_action( $SNAP_CREATE, "--snap $snap_name3 $pool_name\/$img_name",
0 );
perform_action( $SNAP_CREATE, "--snap $snap_name4 $pool_name\/$img_name",
0 );
perform_action( $SNAP_CREATE, "--snap $snap_new $pool_name\/$new_img_name",
0 );
}
# Tests to protect snapshot
sub protect_snapshot {
perform_action( $SNAP_PROTECT, "--snap $snap_new $pool_name\/$new_img_name",
0 );
perform_action( $SNAP_PROTECT, "--snap $snap_new $pool_name\/$new_img_name",
2 );
perform_action( $SNAP_PROTECT, "--snap $snap_name4 $pool_name\/$img_name",
2 );
perform_action( $SNAP_PROTECT, "--snap $snap_test $pool_name\/$img_name",
2 );
}
# Tests to unprotect snapshot
sub unprotect_snapshot {
perform_action( $SNAP_UNPROTECT, "--snap $snap_new $pool_name\/$new_img_name",
0 );
perform_action( $SNAP_UNPROTECT, "--snap $snap_new $pool_name\/$new_img_name",
2 );
perform_action( $SNAP_UNPROTECT, "--snap $snap_name4 $pool_name\/$img_name",
2 );
perform_action( $SNAP_UNPROTECT, "--snap $snap_test $pool_name\/$img_name",
2 );
}
# clone protected snapshot
sub clone_image {
perform_action( $RBD_CLONE, "$pool_name\/$new_img_name\@$snap_new $pool_name\/$clone_new",
0 );
perform_action( $RBD_CLONE, "$pool_name\/$new_img_name\@$snap_new $pool_name\/$clone_new",
1 );
perform_action( $RBD_CLONE, "$pool_name\/$new_img_name\@$snap_name5 $pool_name\/$clone_new1",
2 );
perform_action( $RBD_CLONE, "$pool_name\/$img_name\@$snap_test $pool_name\/$clone_new1",
2 );
perform_action( $RBD_CLONE, "$pool_name\/$img_name\@$snap_name5 $pool_name\/$clone_new2",
2 );
perform_action( $RBD_CLONE, "$pool_name\/$img_name\@$snap_new",
2 );
perform_action( $RBD_CLONE, "$pool_name\/$img_name",
2 );
}
#flatten image
sub rbd_flatten {
perform_action( $RBD_FLATTEN, "$pool_name\/$clone_new", 0);
perform_action( $RBD_FLATTEN, "$pool_name\/$clone_new", 2);
perform_action( $RBD_FLATTEN, "$pool_name\/$clone_new2", 2);
perform_action( $RBD_FLATTEN, "$pool_name\/$new_img_name", 2);
}
# Tests to rollback snapshot
sub rollback_snapshot {
perform_action( $SNAP_ROLLBACK, "--snap $snap_name2 $pool_name\/$img_name",
0 );
perform_action( $SNAP_ROLLBACK,
"--snap $rbd_snap_new $pool_name\/$img_name", 2 );
perform_action( $SNAP_ROLLBACK,
"--snap $snap_name $pool_name\/$new_rbd_img", 2 );
}
# Tests to purge snapshots
sub purge_snapshots {
perform_action( $SNAP_PURGE, "$pool_name\/$img_name", 0 );
perform_action( $SNAP_PURGE, "$pool_name\/$new_rbd_img", 2 );
perform_action( $SNAP_PURGE, "$pool_name\/$new_img_name", 2 );
}
# Tests to list snapshots for an image
sub list_snapshots {
perform_action( $SNAP_LIST, "$pool_name\/$non_existing_img", 2 );
}
# Tests for remove snapshots
sub remove_snapshot {
perform_action( $SNAP_REMOVE, "$pool_name\/$img_name\@$snap_name", 0 );
perform_action( $SNAP_REMOVE, "$pool_name\/$new_img_name\@$snap_new", 2 );
perform_action( $SNAP_REMOVE, "$non_pool_name\/$img_name\@$snap_name3", 2 );
perform_action( $SNAP_REMOVE, "$pool_name\/$img_name\@$snap_name2", 0 );
perform_action( $SNAP_REMOVE, "$pool_name\/$non_existing_img", 2 );
perform_action( $SNAP_REMOVE, " ", 2 );
}
# Tests for resize image
sub resize_image {
perform_action( $RBD_RESIZE, "$img_name,size 1024,pool $pool_name", 0 );
perform_action( $RBD_RESIZE, "$non_existing_img,size 1024,pool $pool_name",
2 );
}
# Tests for list rbd image
sub list_image {
perform_action( $RBD_LIST, "$non_pool_name", 2 );
}
# Tests to copy rbd image
sub copy_image {
perform_action( $RBD_CP, "$pool_name\/$img_name $pool_name\/$cp_new", 0 );
perform_action( $RBD_CP, "$pool_name\/$non_existing_img", 2 );
}
# Tests for rbd info
sub info_image {
perform_action( $RBD_INFO, "$pool_name\/$img_name", 0 );
perform_action( $RBD_INFO, "--snap $snap_name $pool_name\/$img_name_mv",
2 );
perform_action( $RBD_INFO, "--snap $no_snap $pool_name\/$img_name", 2 );
perform_action( $RBD_INFO, "$pool_name\/$non_existing_img", 2 );
}
# Tests for rename image
sub rename_image {
perform_action( $RBD_RENAME,
"$pool_name\/$img_name_mv $pool_name\/$new_rbd_img", 0 );
perform_action( $RBD_MV,
"$pool_name\/$new_rbd_img $pool_name\/$img_name_mv", 0 );
}
# Tests for remove image
sub remove_image {
perform_action( $RBD_REMOVE,"$pool_name\/$img_name",0);
perform_action( $RBD_REMOVE, "$pool_name\/$new_rbd_img", 2 );
perform_action( $RBD_REMOVE, "$pool_name\/$rbd_imp_image", 0 );
perform_action( $RBD_REMOVE, "$pool_name\/$cp_new", 0 );
perform_action( $RBD_REMOVE, " ", 2 );
}
# Tests for export rbd image
sub export_image {
perform_action( $RBD_EXPORT, "$pool_name\/$img_name $exp_file", 0 );
perform_action( $RBD_EXPORT, "$pool_name\/$img_name .", 2 );
perform_action( $RBD_EXPORT, "$pool_name\/$img_name", 0 );
perform_action( $RBD_EXPORT,
"--snap $snap_name $pool_name\/$img_name $exp_file1", 0 );
perform_action( $RBD_EXPORT,
"--snap $no_snap $pool_name\/$img_name $exp_file1", 2 );
perform_action( $RBD_EXPORT,
"--snap $snap_name $pool_name\/$non_existing_img $exp_file2", 2 );
}
# Tests for import file to rbd image
sub import_image {
my $i = create_test_file( $rbd_imp_file, $content );
if ( $i == 0 ) {
perform_action( $RBD_IMPORT, "$rbd_imp_file $pool_name\/$rbd_imp_image", 0 );
}
create_test_file( "$rbd_imp_test", 0 );
perform_action( $RBD_IMPORT, "$rbd_imp_test $pool_name\/$rbd_imp_image", 2);
perform_action( $RBD_IMPORT, "$exp_file $pool_name\/$rbd_imp_image", 2 );
}
# To map rbd image to device
sub rbd_map {
# Execute "modprobe rbd"
my $cmd = get_command_output("sudo modprobe rbd");
if ( !$cmd ) {
perform_action( $RBD_MAP, "$pool_name\/$img_name", 0 );
rbd_showmapped();
perform_action( $RBD_MAP, "$pool_name\/$non_existing_img", 2 );
}
}
# To list rbd map
sub rbd_showmapped {
perform_action( $RBD_SHOWMAPPED, "", 0 );
}
# To unmap rbd device
sub rbd_unmap {
perform_action( $RBD_UNMAP, "/dev/rbd0", 0 );
sleep(10);
perform_action( $RBD_UNMAP, "/dev/rbd10", 2 );
}
# To create a test file and write to it
sub create_test_file {
my ( $test_arg, $content ) = @_;
my $command = "touch $test_arg";
my $cmd = get_command_output($command);
if ( ( !$cmd ) && ($content) ) {
$command = "echo $content > $test_arg";
$cmd = get_command_output($command);
if ( !$cmd ) {
my $cmd = get_command_output("ls -l $test_arg");
}
else {
return 1;
}
}
else {
return 1;
}
return 0;
}
# deletes and creates a given rados pool
sub _create_rados_pool {
$exec_cmd = get_command_output("$RADOS_RMPOOL $pool_name");
if ( ( $exec_cmd =~ /$POOL_RM_SUCCESS/ )
|| ( $exec_cmd =~ /does not exist/ ) )
{
debug_msg("Pool $pool_name deleted");
}
$exec_cmd = get_command_output("$RADOS_MKPOOL $pool_name");
if ( ( $exec_cmd =~ /$POOL_MK_SUCCESS/ )
|| ( $exec_cmd =~ /$RBD_EXISTS_ERR/ ) )
{
debug_msg("Pool $pool_name created");
}
}
sub _del_pool {
$exec_cmd = get_command_output("$RADOS_RMPOOL $pool_name");
if ( ( $exec_cmd =~ /$POOL_RM_SUCCESS/ )
|| ( $exec_cmd =~ /does not exist/ ) )
{
debug_msg("Pool $pool_name deleted");
}
}
#== Main starts here===
_pre_clean_up();
display_ceph_os_info();
_create_rados_pool();
create_image();
list_image();
rename_image();
resize_image();
info_image();
create_snapshots();
protect_snapshot();
export_image();
import_image();
list_snapshots();
rollback_snapshot();
remove_snapshot();
purge_snapshots();
clone_image();
rbd_flatten();
unprotect_snapshot();
copy_image();
remove_image();
display_result();
_post_clean_up();
_del_pool();
Reference in New Issue View Git Blame Copy Permalink