From f04bfcde7058184ac6290e794fa6ffcc47d12783 Mon Sep 17 00:00:00 2001 From: Christoph Thiede Date: Sun, 12 Jun 2022 17:45:25 +0200 Subject: [PATCH] Test TBInterrupt Depends on Kernel-ct.1481 (inbox). --- .../TBInterruptTest.class/README.md | 0 .../instance/testInterrupt.st | 4 ++++ .../instance/testInterruptDefered.st | 8 ++++++++ .../TBInterruptTest.class/methodProperties.json | 6 ++++++ .../TBInterruptTest.class/properties.json | 14 ++++++++++++++ 5 files changed, 32 insertions(+) create mode 100644 src/TelegramBot-Tests.package/TBInterruptTest.class/README.md create mode 100644 src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterrupt.st create mode 100644 src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterruptDefered.st create mode 100644 src/TelegramBot-Tests.package/TBInterruptTest.class/methodProperties.json create mode 100644 src/TelegramBot-Tests.package/TBInterruptTest.class/properties.json diff --git a/src/TelegramBot-Tests.package/TBInterruptTest.class/README.md b/src/TelegramBot-Tests.package/TBInterruptTest.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterrupt.st b/src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterrupt.st new file mode 100644 index 0000000..9040399 --- /dev/null +++ b/src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterrupt.st @@ -0,0 +1,4 @@ +tests +testInterrupt + + self assert: 42 equals: (self targetClass signal: [6 * 7]). \ No newline at end of file diff --git a/src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterruptDefered.st b/src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterruptDefered.st new file mode 100644 index 0000000..79fddc5 --- /dev/null +++ b/src/TelegramBot-Tests.package/TBInterruptTest.class/instance/testInterruptDefered.st @@ -0,0 +1,8 @@ +tests +testInterruptDefered + + | x y | + x := 1. + self targetClass deferDuring: + [self targetClass signal: [y := x + 3]. x := 2]. + self assert: 5 equals: y. \ No newline at end of file diff --git a/src/TelegramBot-Tests.package/TBInterruptTest.class/methodProperties.json b/src/TelegramBot-Tests.package/TBInterruptTest.class/methodProperties.json new file mode 100644 index 0000000..6c4e99e --- /dev/null +++ b/src/TelegramBot-Tests.package/TBInterruptTest.class/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "testInterrupt" : "ct 6/12/2022 17:10", + "testInterruptDefered" : "ct 6/12/2022 17:17" } } diff --git a/src/TelegramBot-Tests.package/TBInterruptTest.class/properties.json b/src/TelegramBot-Tests.package/TBInterruptTest.class/properties.json new file mode 100644 index 0000000..a8ed062 --- /dev/null +++ b/src/TelegramBot-Tests.package/TBInterruptTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "TelegramBot-Tests", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "TBInterruptTest", + "pools" : [ + ], + "super" : "ClassTestCase", + "type" : "normal" }