Begin Refactor

vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Plugins.php

@@ -0,0 +1,71 @@
+<?php
+
+namespace RedUNIT\Blackhole;
+
+use RedUNIT\Blackhole as Blackhole;
+use RedBeanPHP\Facade as R;
+use RedBeanPHP\Facade as Facade;
+use RedBeanPHP\RedException as RedException;
+
+/**
+ * Plugins
+ *
+ * This test suite tests whether we can define dynamic
+ * plugins using the ext() method on the facade.
+ *
+ * @file    RedUNIT/Blackhole/Plugins.php
+ * @desc    Tests extending R facade dynamically.
+ * @author  Gabor de Mooij and the RedBeanPHP Community
+ * @license New BSD/GPLv2
+ *
+ * (c) G.J.G.T. (Gabor) de Mooij and the RedBeanPHP Community.
+ * This source file is subject to the New BSD/GPLv2 License that is bundled
+ * with this source code in the file license.txt.
+ */
+class Plugins extends Blackhole
+{
+	/**
+	 * Test if we can dynamically extend the R-facade.
+	 *
+	 * @return void
+	 */
+	public function testDynamicPlugins()
+	{
+		testpack('Test dynamic plugins');
+		R::ext( 'makeTea', function() {
+			return 'sorry cant do that!';
+		});
+		asrt( R::makeTea(), 'sorry cant do that!' );
+		//with parameters
+		R::ext( 'multiply', function( $a, $b ) {
+			return $a * $b;
+		});
+		asrt( R::multiply( 3, 4 ), 12 );
+		//can we call R inside?
+		R::ext( 'singVersion', function() {
+			return R::getVersion() . ' lalala !';
+		} );
+		asrt( R::singVersion(), ( R::getVersion().' lalala !' ) );
+		//should also work with Facade
+		asrt( Facade::singVersion(), ( R::getVersion().' lalala !' ) );
+		//test error handling
+		try {
+			R::ext( '---', function() {} );
+			fail();
+		} catch ( RedException $e ) {
+			asrt( $e->getMessage(), 'Plugin name may only contain alphanumeric characters and underscores and cannot start with a number.' );
+		}
+		try {
+			R::__callStatic( '---', function() {} );
+			fail();
+		} catch ( RedException $e ) {
+			asrt( $e->getMessage(), 'Plugin name may only contain alphanumeric characters and underscores and cannot start with a number.' );
+		}
+		try {
+			R::invalidMethod();
+			fail();
+		} catch ( RedException $e ) {
+			asrt( $e->getMessage(), 'Plugin \'invalidMethod\' does not exist, add this plugin using: R::ext(\'invalidMethod\')' );
+		}
+	}
+}