extend S3ListBucket test cases

tests/functions/S3ListBucket.cfc

@@ -4,21 +4,25 @@ component extends="org.lucee.cfml.test.LuceeTestCase" labels="s3" {
 			it(title="check region with blackbaze",skip=Util::isBackBlazeNotSupported(), body = function( currentSpec ) {
 				testit(Util::getBackBlazeCredentials());
 				testUDF(Util::getBackBlazeCredentials());
+				testCFC(Util::getBackBlazeCredentials());
 			});	
 
 			it(title="check with amazon",skip=Util::isAWSNotSupported(), body = function( currentSpec ) {
 				testit(Util::getAWSCredentials());
 				testUDF(Util::getAWSCredentials());
+				testCFC(Util::getAWSCredentials());
 			});	
 
 			it(title="check with wasabi",skip=Util::isWasabiNotSupported(), body = function( currentSpec ) {
 				testit(Util::getWasabiCredentials());
 				testUDF(Util::getWasabiCredentials());
+				testCFC(Util::getWasabiCredentials());
 			});		
 
 			it(title="check with google",skip=Util::isGoogleNotSupported(), body = function( currentSpec ) {
 				testit(Util::getGoogleCredentials());
 				testUDF(Util::getGoogleCredentials());
+				testCFC(Util::getGoogleCredentials());
 			});			
 
 		});
@@ -55,6 +59,50 @@ component extends="org.lucee.cfml.test.LuceeTestCase" labels="s3" {
 		}
 	}
 
+	private function testCFC(cred) {
+		try {
+			// create variables
+			var bucketName=cred.PREFIX&"-list-bucket:"&listFirst(replace(server.lucee.version,".","","all"),"-");
+			var objectNames=["sub/test1.txt","sub/test2.txt","sub/test3.txt","sub/test4.txt","sub/test5.txt"];
+
+			// create empty bucket
+			Util::deleteIfExists(cred,bucketName);
+			S3CreateBucket( 
+					bucketName:bucketName,
+					accessKeyId:cred.ACCESS_KEY_ID, secretAccessKey:cred.SECRET_KEY, host:(isNull(cred.HOST)?nullvalue():cred.HOST));
+
+			// create objects
+			loop array=objectNames item="local.objectName" {
+				// create source bucket
+				if(!S3Exists( 
+					bucketName:bucketName,  objectName:objectName, 
+					accessKeyId:cred.ACCESS_KEY_ID, secretAccessKey:cred.SECRET_KEY, host:(isNull(cred.HOST)?nullvalue():cred.HOST))) {
+					S3Write( 
+						value:"Susi Sorglos",
+						bucketName:bucketName,  objectName:objectName, 
+						accessKeyId:cred.ACCESS_KEY_ID, secretAccessKey:cred.SECRET_KEY, host:(isNull(cred.HOST)?nullvalue():cred.HOST));
+				}
+			}
+
+			var listener=new S3ListBucketListener();
+			S3ListBucket(
+				bucketName:bucketName, 
+				listener:listener,
+				blockfactor:3,
+				accessKeyId:cred.ACCESS_KEY_ID, 
+				secretAccessKey:cred.SECRET_KEY,
+				host:(isNull(cred.HOST)?nullvalue():cred.HOST)
+			);
+			assertEquals("->3;2;<-", listener.getData());
+		}
+		catch(e) {
+			if(!findNoCase("Transaction cap exceeded", e.message) ) throw e;
+		}
+		finally {
+			Util::deleteBucketEL(cred,bucketName);
+		}
+	}
+
 	private function testUDF(cred) {
 		try {
 			// create variables

tests/functions/S3ListBucketListener.cfc

@@ -0,0 +1,18 @@
+component  {
+	variables.res="";
+
+    function before(){
+        variables.res&="-->";
+    }
+    function after(){
+        variables.res&="<--";
+    }
+
+    function invoke(data){
+        variables.res&=data.recordcount&";";
+    }
+
+    function getData() {
+        return  variables.res;
+    }
+}