Initial data commit

Task/Simulate-input-Keyboard/PicoLisp/simulate-input-keyboard.l

@@ -0,0 +1,15 @@
+(load "@lib/http.l" "@lib/scrape.l")
+
+# Connect to the demo app at http://7fach.de/8080
+(scrape "7fach.de" 80 "8080")
+
+# Log in
+(expect "'admin' logged in"
+   (enter 3 "admin")       # Enter user name into 3rd field
+   (enter 4 "admin")       # Enter password into 4th field
+   (press "login") )       # Press the "login" button
+
+(click "Items")         # Open "Items" dialog
+(click "Spare Part")    # Click on "Spare Part" article
+(prinl (value 8))       # Print the price (12.50)
+(click "logout")        # Log out