--- google/trunk/bin/cpe-queue.pl	2007/11/14 21:55:24	203
+++ google/trunk/bin/cpe-queue.pl	2007/11/14 23:02:17	205
@@ -113,10 +113,13 @@
 
 	warn "injecting some tests commands\n";
 
-	$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
+#	$q->enqueue( 'GetParameterNames', [ 'InternetGatewayDevice.LANDevice.', 1 ] );
 
-	$q->enqueue( 'GetParameterValues', [
-		'InternetGatewayDevice.',
-	]);
+#	$q->enqueue( 'GetParameterValues', [
+#		'InternetGatewayDevice.',
+#	]);
 
+	$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
+	$q->enqueue( 'SetParameterValues', { '.ExternalIPAddress' => '192.168.1.250' });
+	$q->enqueue( 'GetParameterNames', [ '.ExternalIPAddress', 1 ] );
 }