1 files changed, 109 insertions, 0 deletions
diff --git a/www/wiki/extensions/Translate/tests/generateRandomSandboxData.php b/www/wiki/extensions/Translate/tests/generateRandomSandboxData.php
new file mode 100644
index 00000000..78e2d1b5
--- /dev/null
+++ b/www/wiki/extensions/Translate/tests/generateRandomSandboxData.php
@@ -0,0 +1,109 @@
+<?php
+/**
+ * Script to generate some random data to help testing sandbox.
+ *
+ * @author Niklas Laxström
+ * @license GPL-2.0-or-later
+ * @file
+ */
+
+// Standard boilerplate to define $IP
+if ( getenv( 'MW_INSTALL_PATH' ) !== false ) {
+	$IP = getenv( 'MW_INSTALL_PATH' );
+} else {
+	$dir = __DIR__;
+	$IP = "$dir/../../..";
+}
+require_once "$IP/maintenance/Maintenance.php";
+
+class TranslateGenerateRandomSandboxData extends Maintenance {
+
+	public function execute() {
+		$users = 10;
+
+		// For number of translations, limited to [0,20]
+		$mean = 15;
+		$stddev = 20;
+
+		$stash = new TranslationStashStorage( wfGetDB( DB_MASTER ) );
+
+		$languages = array_keys( Language::fetchLanguageNames() );
+
+		for ( $i = 0; $i < $users; $i++ ) {
+			$username = 'Pupu' . wfRandomString( 6 );
+			$password = wfRandomString( 12 );
+			$email = "$username.$password@blackhole.io";
+			$user = TranslateSandbox::addUser( $username, $password, $email );
+
+			$language = $languages[rand( 0, count( $languages ) - 1 )];
+
+			$count = wfGaussMs( $mean, $stddev );
+			$count = min( 20, $count );
+			$count = max( 0, $count );
+
+			for ( $j = 0; $j < $count; $j++ ) {
+				$title = Title::makeTitle( NS_MEDIAWIKI, wfRandomString( 24 ) . '/' . $language );
+
+				$value = [ 'Pupu söi' ];
+				for ( $k = rand( 0, 20 ); $k > 0; $k-- ) {
+					$value[] = wfRandomString( rand( 1, 28 ) );
+				}
+
+				$value = implode( "\n", $value );
+				$translation = new StashedTranslation( $user, $title, $value );
+				$stash->addTranslation( $translation );
+			}
+		}
+	}
+}
+
+/*
+ * Gauss functions are based on Mark Baker's code from
+ * https://stackoverflow.com/questions/5188900/bell-curve-algorithm-with-php
+ */
+
+function wfGauss() {
+	static $useExists = false;
+	static $useValue;
+
+	if ( $useExists ) {
+		// Use value from a previous call to this function
+		$useExists = false;
+		return $useValue;
+	} else {
+		// Polar form of the Box-Muller transformation
+		$w = 2.0;
+		while ( ( $w >= 1.0 ) || ( $w == 0.0 ) ) {
+				$x = wfRandomPn();
+				$y = wfRandomPn();
+				$w = ( $x * $x ) + ( $y * $y );
+		}
+		$w = sqrt( ( -2.0 * log( $w ) ) / $w );
+
+		// Set value for next call to this function
+		$useValue = $y * $w;
+		$useExists = true;
+
+		return $x * $w;
+	}
+}
+
+function wfGaussMs( $mean, $stddev ) {
+	// Adjust our gaussian random to fit the mean and standard deviation.
+	// The division by 4 is an arbitrary value to help fit the distribution
+	// within our required range, and gives a best fit for $stddev = 1.0.
+	return wfGauss() * ( $stddev / 4 ) + $mean;
+}
+
+function wfRandom01() {
+	// Returns random number using mt_rand() with a flat distribution from 0 to 1 inclusive
+	return (float)mt_rand() / (float)mt_getrandmax();
+}
+
+function wfRandomPn() {
+	// Returns random number using mt_rand() with a flat distribution from -1 to 1 inclusive
+	return ( 2.0 * wfRandom01() ) - 1.0;
+}
+
+$maintClass = TranslateGenerateRandomSandboxData::class;
+require_once RUN_MAINTENANCE_IF_MAIN;