diff options
Diffstat (limited to 'src/ceph/qa/workunits/rgw/s3_bucket_quota.pl')
| -rwxr-xr-x | src/ceph/qa/workunits/rgw/s3_bucket_quota.pl | 393 |
1 files changed, 0 insertions, 393 deletions
diff --git a/src/ceph/qa/workunits/rgw/s3_bucket_quota.pl b/src/ceph/qa/workunits/rgw/s3_bucket_quota.pl deleted file mode 100755 index 6a4a1a4..0000000 --- a/src/ceph/qa/workunits/rgw/s3_bucket_quota.pl +++ /dev/null @@ -1,393 +0,0 @@ -#! /usr/bin/perl - -=head1 NAME - -s3_bucket_quota.pl - Script to test the rgw bucket quota functionality using s3 interface. - -=head1 SYNOPSIS - -Use: - perl s3_bucket_quota.pl [--help] - -Examples: - perl s3_bucket_quota.pl - or - perl s3_bucket_quota.pl --help - -=head1 DESCRIPTION - -This script intends to test the rgw bucket quota funcionality using s3 interface -and reports the test results - -=head1 ARGUMENTS - -s3_bucket_quota.pl takes the following arguments: - --help - (optional) Displays the usage message. - -=cut - -use Amazon::S3; -use Data::Dumper; -#use strict; -use IO::File; -use Getopt::Long; -use Digest::MD5; -use Pod::Usage(); -use FindBin; -use lib $FindBin::Bin; -use s3_utilities; -use Net::Domain qw(hostfqdn); - -my $help; - -Getopt::Long::GetOptions( - 'help' => \$help -); -Pod::Usage::pod2usage(-verbose => 1) && exit if ($help); - -#== local variables === -our $mytestfilename; -my $mytestfilename1; -my $logmsg; -my $kruft; -my $s3; -my $hostdom = $ENV{RGW_FQDN}||hostfqdn(); -my $port = $ENV{RGW_PORT}||7280; -our $hostname = "$hostdom:$port"; -our $testfileloc; -my $rgw_user = "qa_user"; - -# Function that deletes the user $rgw_user and write to logfile. -sub delete_user -{ - my $cmd = "$radosgw_admin user rm --uid=$rgw_user"; - my $cmd_op = get_command_output($cmd); - if ($cmd_op !~ /aborting/){ - print "user $rgw_user deleted\n"; - } else { - print "user $rgw_user NOT deleted\n"; - return 1; - } - return 0; -} - -sub quota_set_max_size { - my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-size=1048576000`; - if ($set_quota !~ /./){ - print "quota set for the bucket: $bucketname \n"; - } else { - print "quota set failed for the bucket: $bucketname \n"; - exit 1; - } - return 0; -} - -sub quota_set_max_size_zero { - run_s3($rgw_user); - my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-size=0`; - if ($set_quota !~ /./){ - pass ("quota set for the bucket: $bucketname with max size as zero\n"); - } else { - fail ("quota set with max size 0 failed for the bucket: $bucketname \n"); - } - delete_bucket(); -} - -sub quota_set_max_objs_zero { - run_s3($rgw_user); - my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-objects=0`; - if ($set_quota !~ /./){ - pass ("quota set for the bucket: $bucketname with max objects as zero\n"); - } else { - fail ("quota set with max objects 0 failed for the bucket: $bucketname \n"); - } - delete_bucket(); -} - -sub quota_set_neg_size { - run_s3($rgw_user); - my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-size=-1`; - if ($set_quota !~ /./){ - pass ("quota set for the bucket: $bucketname with max size -1\n"); - } else { - fail ("quota set failed for the bucket: $bucketname with max size -1 \n"); - } - delete_bucket(); -} - -sub quota_set_neg_objs { - run_s3($rgw_user); - my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-objects=-1`; - if ($set_quota !~ /./){ - pass ("quota set for the bucket: $bucketname max objects -1 \n"); - } else { - fail ("quota set failed for the bucket: $bucketname \n with max objects -1"); - } - delete_bucket(); -} - -sub quota_set_user_objs { - my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=bucket`; - my $set_quota1 = `$radosgw_admin quota set --bucket=$bucketname --max-objects=1`; - if ($set_quota1 !~ /./){ - print "bucket quota max_objs set for the given user: $bucketname \n"; - } else { - print "bucket quota max_objs set failed for the given user: $bucketname \n"; - exit 1; - } - return 0; -} - -sub quota_set_user_size { - my $set_quota = `$radosgw_admin quota set --uid=$rgw_user --quota-scope=bucket`; - my $set_quota1 = `$radosgw_admin quota set --bucket=$bucketname --max-size=1048576000`; - if ($set_quota1 !~ /./){ - print "bucket quota max size set for the given user: $bucketname \n"; - } else { - print "bucket quota max size set failed for the user: $bucketname \n"; - exit 1; - } - return 0; -} - -sub quota_set_max_obj { - # set max objects - my $set_quota = `$radosgw_admin quota set --bucket=$bucketname --max-objects=1`; - if ($set_quota !~ /./){ - print "quota set for the bucket: $bucketname \n"; - } else { - print "quota set failed for the bucket: $bucketname \n"; - exit 1; - } - return 0; -} - -sub quota_enable { - my $en_quota = `$radosgw_admin quota enable --bucket=$bucketname`; - if ($en_quota !~ /./){ - print "quota enabled for the bucket: $bucketname \n"; - } else { - print "quota enable failed for the bucket: $bucketname \n"; - exit 1; - } - return 0; -} - -sub quota_disable { - my $dis_quota = `$radosgw_admin quota disable --bucket=$bucketname`; - if ($dis_quota !~ /./){ - print "quota disabled for the bucket: $bucketname \n"; - } else { - print "quota disable failed for the bucket: $bucketname \n"; - exit 1; - } - return 0; -} - -# upload a file to the bucket -sub upload_file { - print "adding file to bucket: $mytestfilename\n"; - ($bucket->add_key_filename( $mytestfilename, $testfileloc, - { content_type => 'text/plain', }, - ) and (print "upload file successful\n" ) and return 0 ) or (return 1); -} - -# delete the bucket -sub delete_bucket { - #($bucket->delete_key($mytestfilename1) and print "delete keys on bucket succeeded second time\n" ) or die $s3->err . "delete keys on bucket failed second time\n" . $s3->errstr; - ($bucket->delete_bucket) and (print "bucket delete succeeded \n") or die $s3->err . "delete bucket failed\n" . $s3->errstr; -} - -# set bucket quota with max_objects and verify -sub test_max_objects { - my $size = '10Mb'; - create_file($size); - run_s3($rgw_user); - quota_set_max_obj(); - quota_enable(); - my $ret_value = upload_file(); - if ($ret_value == 0){ - pass ( "Test max objects passed" ); - } else { - fail ( "Test max objects failed" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# Set bucket quota for specific user and ensure max objects set for the user is validated -sub test_max_objects_per_user{ - my $size = '10Mb'; - create_file($size); - run_s3($rgw_user); - quota_set_user_objs(); - quota_enable(); - my $ret_value = upload_file(); - if ($ret_value == 0){ - pass ( "Test max objects for the given user passed" ); - } else { - fail ( "Test max objects for the given user failed" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota with max_objects and try to exceed the max_objects and verify -sub test_beyond_max_objs { - my $size = "10Mb"; - create_file($size); - run_s3($rgw_user); - quota_set_max_obj(); - quota_enable(); - upload_file(); - my $ret_value = readd_file(); - if ($ret_value == 1){ - pass ( "set max objects and test beyond max objects passed" ); - } else { - fail ( "set max objects and test beyond max objects failed" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota for a user with max_objects and try to exceed the max_objects and verify -sub test_beyond_max_objs_user { - my $size = "10Mb"; - create_file($size); - run_s3($rgw_user); - quota_set_user_objs(); - quota_enable(); - upload_file(); - my $ret_value = readd_file(); - if ($ret_value == 1){ - pass ( "set max objects for a given user and test beyond max objects passed" ); - } else { - fail ( "set max objects for a given user and test beyond max objects failed" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota for max size and ensure it is validated -sub test_quota_size { - my $ret_value; - my $size = "2Gb"; - create_file($size); - run_s3($rgw_user); - quota_set_max_size(); - quota_enable(); - my $ret_value = upload_file(); - if ($ret_value == 1) { - pass ( "set max size and ensure that objects upload beyond max size is not entertained" ); - my $retdel = delete_keys($mytestfilename); - if ($retdel == 0) { - print "delete objects successful \n"; - my $size1 = "1Gb"; - create_file($size1); - my $ret_val1 = upload_file(); - if ($ret_val1 == 0) { - pass ( "set max size and ensure that the max size is in effect" ); - } else { - fail ( "set max size and ensure the max size takes effect" ); - } - } - } else { - fail ( "set max size and ensure that objects beyond max size is not allowed" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota for max size for a given user and ensure it is validated -sub test_quota_size_user { - my $ret_value; - my $size = "2Gb"; - create_file($size); - run_s3($rgw_user); - quota_set_user_size(); - quota_enable(); - my $ret_value = upload_file(); - if ($ret_value == 1) { - pass ( "set max size for a given user and ensure that objects upload beyond max size is not entertained" ); - my $retdel = delete_keys($mytestfilename); - if ($retdel == 0) { - print "delete objects successful \n"; - my $size1 = "1Gb"; - create_file($size1); - my $ret_val1 = upload_file(); - if ($ret_val1 == 0) { - pass ( "set max size for a given user and ensure that the max size is in effect" ); - } else { - fail ( "set max size for a given user and ensure the max size takes effect" ); - } - } - } else { - fail ( "set max size for a given user and ensure that objects beyond max size is not allowed" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota size but disable quota and verify -sub test_quota_size_disabled { - my $ret_value; - my $size = "2Gb"; - create_file($size); - run_s3($rgw_user); - quota_set_max_size(); - quota_disable(); - my $ret_value = upload_file(); - if ($ret_value == 0) { - pass ( "bucket quota size doesnt take effect when quota is disabled" ); - } else { - fail ( "bucket quota size doesnt take effect when quota is disabled" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota size for a given user but disable quota and verify -sub test_quota_size_disabled_user { - my $ret_value; - my $size = "2Gb"; - create_file($size); - run_s3($rgw_user); - quota_set_user_size(); - quota_disable(); - my $ret_value = upload_file(); - if ($ret_value == 0) { - pass ( "bucket quota size for a given user doesnt take effect when quota is disabled" ); - } else { - fail ( "bucket quota size for a given user doesnt take effect when quota is disabled" ); - } - delete_user(); - delete_keys($mytestfilename); - delete_bucket(); -} - -# set bucket quota for specified user and verify - -#== Main starts here=== -ceph_os_info(); -test_max_objects(); -test_max_objects_per_user(); -test_beyond_max_objs(); -test_beyond_max_objs_user(); -quota_set_max_size_zero(); -quota_set_max_objs_zero(); -quota_set_neg_objs(); -quota_set_neg_size(); -test_quota_size(); -test_quota_size_user(); -test_quota_size_disabled(); -test_quota_size_disabled_user(); - -print "OK"; |