--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/graphicsdeviceinterface/directgdi/test/scripts/runtest.pl	Tue Feb 02 01:47:50 2010 +0200
@@ -0,0 +1,52 @@
+# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+
+
+sub convertMbm
+{
+	my $dir = shift or die( "no argument given." );
+	# Directory of the reference images
+	$dir = ".\\$dir";
+	my @files = `dir $dir\\*.mbm /B`;
+	# Convert all the reference images under its directory from .mbm to .bmp files
+	foreach $file (@files)
+	{
+		chomp $file;
+		$file = "$dir\\$file";
+		my $bmpfile = $file;
+		$bmpfile =~ s/mbm$/bmp/;
+
+		# -M OPERAND Returns the age of OPERAND in days when the program started.
+    # Dont output a message if skipping the file, to keep the output relevant.
+    # The conversion utility outputs a message if conversion is performed.
+		if ( -e $bmpfile && ( -M $bmpfile < -M $file ) ) {
+			# print "skipping $file\n";
+			next;
+		}
+		
+		my $cmd = "bmconv /u $file $bmpfile";
+		print "$cmd\n";
+		print `$cmd`;
+	}
+}
+
+convertMbm( "ref" );
+convertMbm( "test" );
+
+# Call python scripts to compare the difference between reference images and test images
+my $cmd = "runtest.py $ARGV[0]";
+print "$cmd\n";
+print `$cmd`;
+