From 11a76485a1f7788d33415da2e1c110dec7517306 Mon Sep 17 00:00:00 2001
From: Stefan Urbanek <stefan@agentfarms.net>
Date: Mon, 5 Sep 2005 20:38:41 +0000
Subject: [PATCH] added distant scripting test

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@21705 72102866-910b-0410-8b05-ffd578937521
---
 Testing/Smalltalk/distant.st | 46 ++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 Testing/Smalltalk/distant.st

diff --git a/Testing/Smalltalk/distant.st b/Testing/Smalltalk/distant.st
new file mode 100644
index 0000000..111dbd8
--- /dev/null
+++ b/Testing/Smalltalk/distant.st
@@ -0,0 +1,46 @@
+" Distant environment example 
+    
+    Date: 2005 Aug 17
+    Author: Stefan Urbanek
+    
+    Usage: 
+        1. run: stenvironment -name test
+        2. run: stexec distant.st
+        3. repeat step 2. as many times as you like
+    
+    Step 1. creates a scripting environment. Step 2. executes this script.
+
+"
+
+"Create a conversation with distant environment"
+conversation := (STDistantConversation alloc) initWithEnvironmentName:'test'
+                                                                 host:nil
+                                                             language:nil.
+
+Transcript showLine: '-- Conversation created:', (conversation description).
+
+"Interpret some scripts in the distant environment"
+conversation interpretScript:'Transcript showLine:\'Hello StepTalk!\'.'.
+conversation interpretScript:'Environment class description'.
+
+"Get run count"
+
+conversation interpretScript:'runCount'.
+result := conversation resultByCopy.
+
+"If there is no run count, then we are running first time and we have to 
+ define and set the run count to 1"
+ 
+result ifNil:
+    [
+    Transcript showLine: ('This script was run for first time.').
+        conversation interpretScript:'runCount := 0'.
+        result := 1.
+    ].
+    
+conversation interpretScript:'runCount := runCount + 1'.
+result := conversation resultByCopy.
+
+Transcript showLine: ('This script was run ', (result description), ' times.').
+
+conversation close.