To testing, add block repetition directive.

diff --git a/ircplom/testing.py b/ircplom/testing.py
index 2249186fddad479cfc5da03816c9bc4068938c1c..497eab15524efc46927f36b31b8ef4eb07517096 100644 (file)
--- a/ircplom/testing.py
+++ b/ircplom/testing.py
@@ -128,6 +128,12 @@ class TestingClientTui(ClientTui):
             if line[:1] == '#' or not line.strip():
                 continue
             context, msg = line.split(' ', maxsplit=1)
+            if context == 'repeat':
+                start, end = msg.split(':')
+                self._playbook = (self._playbook[:self._playbook_idx + 1]
+                                  + self._playbook[int(start):int(end)]
+                                  + self._playbook[self._playbook_idx + 1:])
+                continue
             if context == '>':
                 for c in msg:
                     self._q_keypresses.put(c)

diff --git a/test.txt b/test.txt
index 15dcca486a109393b948ddfa0ccf4e3724b8ead1..1d352a1a4938411501f2f028f80f14eeadc70898 100644 (file)
--- a/test.txt
+++ b/test.txt
@@ -264,89 +264,12 @@
 1,2 $ channels cleared
 1,2 $ users cleared
 
+# check that (save TUI tests assuming start on window 0, and no 4 yet) on reconnect, all the same effects can be expected
 > /reconnect
 1,2,3,4 $ connection_state set to: [connecting]
 1,2,3,4 $ connection_state set to: [connected]
-2 > CAP LS :302
-2 > USER foobarbazquux 0 * :baz
-2 > NICK :foo
-2 < :*.?.net NOTICE * :*** Looking up your ident...
-1,2 $$$ *** Looking up your ident...
-2 < :*.?.net NOTICE * :*** Looking up your hostname...
-1,2 $$$ *** Looking up your hostname...
-2 < :*.?.net NOTICE * :*** Found your hostname (baz.bar.foo)
-1,2 $$$ *** Found your hostname (baz.bar.foo)
-2 < PING :?
-2 > PONG :?
-2 < :*.?.net CAP * LS : foo bar sasl=PLAIN,EXTERNAL baz
-2 > CAP REQ :sasl
-2 > CAP :LIST
-2 < :*.?.net CAP ? ACK :sasl
-2 < :*.?.net CAP ? LIST :cap-notify sasl
-1,2 $ caps:bar:data set to: []
-1,2 $ caps:baz:data set to: []
-1,2 $ caps:foo:data set to: []
-1,2 $ caps:sasl:data set to: []
-1,2 $ caps:sasl:data set to: [PLAIN,EXTERNAL]
-1,2 $ caps:sasl:enabled set to: [True]
-1,2 $ sasl_auth_state set to: [attempting]
-2 > AUTHENTICATE :PLAIN
-2 < AUTHENTICATE +
-2 > AUTHENTICATE :Zm9vAGZvbwBiYXI=
-2 < :foo.bar.baz 900 foo foo!foobarbazq@baz.bar.foo foo :You are now logged in as foo
-1,2 $ users:me:nick set to: [?]
-1,2 $ users:me:nick set to: [foo]
-1,2 $ users:me:user set to: [foobarbazq]
-1,2 $ users:me:host set to: [baz.bar.foo]
-1,2 $ sasl_account set to: [foo]
-2 < :foo.bar.baz 903 foo :SASL authentication successful
-1,2 $ sasl_auth_state set to: [SASL authentication successful]
-2 > CAP :END
-2 < :foo.bar.baz 001 foo :Welcome to the foo.bar.baz network
-2 < :foo.bar.baz 002 foo :Your host is foo.bar.baz
-2 < :foo.bar.baz 003 foo :This server was created Jan 1 2020
-2 < :foo.bar.baz 004 foo foo.bar.baz ircserver-1.0 abc def ghi
-2 < :foo.bar.baz 005 foo ABC=DEF GHI=JKL :are supported by this server
-1,2 $ isupport:ABC set to: [DEF]
-1,2 $ isupport:GHI set to: [JKL]
-2 < :foo.bar.baz 005 foo MNO=PQR STU=VWX Y=Z :are supported by this server
-1,2 $ isupport:MNO set to: [PQR]
-1,2 $ isupport:STU set to: [VWX]
-1,2 $ isupport:Y set to: [Z]
-2 < :foo.bar.baz 251 foo :There are 10 users and 1000 invisible on 5 servers
-2 < :foo.bar.baz 252 foo 7 :IRC Operators online
-2 < :foo.bar.baz 253 foo 4 :unknown connection(s)
-2 < :foo.bar.baz 254 foo 800 :channels formed
-2 < :foo.bar.baz 255 foo :I have 100 clients and 1 serveres
-2 < :foo.bar.baz 265 foo 100 150 :Current local users 100, max 150
-2 < :foo.bar.baz 266 foo 1010 1050 :Current global users 1010, max 1050
-2 < :foo.bar.baz 250 foo :Highest connection count: 151 (150 clients) (1080 connections received)
-2 < :foo.bar.baz 375 foo :- foo.bar.baz Message of the Day -
-2 < :foo.bar.baz 372 foo :- Howdy! -
-2 < :foo.bar.baz 372 foo :- Welcome! -
-2 < :foo.bar.baz 372 foo :- (to this server) -
-2 < :foo.bar.baz 376 foo :End of /MOTD command
-1,2 $ motd set to:
-1,2 $   - Howdy! -
-1,2 $   - Welcome! -
-1,2 $   - (to this server) -
-2 < :foo MODE foo :+Ziw
-1,2 $ users:me:modes set to: [+Ziw]
-2 < :SaslServ!SaslServ@services.bar.baz NOTICE foo :Last login from ~foobarbaz@foo.bar.baz on Jan 1 22:00:00 2021 +0000.
-3 <<< [SaslServ] Last login from ~foobarbaz@foo.bar.baz on Jan 1 22:00:00 2021 +0000.
-> /join #test
-2 > JOIN :#test
-2 < :foo!~foobarbaz@baz.bar.foo JOIN #test
-1,2 $ users:me:user set to: [~foobarbaz]
-2 < :foo.bar.baz 353 foo @ #test :foo @bar
-1,2 $ users:1:nick set to: [?]
-1,2 $ users:1:nick set to: [bar]
-2 < :foo.bar.baz 366 foo #test :End of /NAMES list.
-4 $ residents: bar, foo
-2 < :bar!~bar@bar.bar PRIVMSG #test :hi there
-1,2 $ users:1:user set to: [~bar]
-1,2 $ users:1:host set to: [bar.bar]
-4 < [bar] hi there
+repeat 64:147
+repeat 158:265
 
 > /quit
 0 <