The Trunk: Tests-mt.423.mcz

Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.423.mcz

==================== Summary ====================

Name: Tests-mt.423
Author: mt
Time: 22 November 2019, 11:30:50.652303 am
UUID: 0048a1fb-aa80-ad40-a372-764aee7c7c9b
Ancestors: Tests-mt.422

Adds tests for Warning.

=============== Diff against Tests-mt.422 ===============

Item was added:
+ TestCase subclass: #WarningTests
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Exceptions'!

Item was added:
+ ----- Method: WarningTests>>tearDown (in category 'running') -----
+ tearDown
+
+ Warning resetAllWarnings.
+ super tearDown.!

Item was added:
+ ----- Method: WarningTests>>test01Signal (in category 'tests') -----
+ test01Signal
+
+ self should: [Warning signal] raise: Warning.!

Item was added:
+ ----- Method: WarningTests>>test02Resume (in category 'tests') -----
+ test02Resume
+
+ self
+ assert: 42
+ equals: ([Warning signal] on: Warning do: [:w | w resume: 42]).!

Item was added:
+ ----- Method: WarningTests>>test03MessageText (in category 'tests') -----
+ test03MessageText
+
+ self
+ assert: 'Hello, World!!'
+ equals: ([Warning signal: 'Hello, World!!'] on: Warning do: [:w | w messageText]).!

Item was added:
+ ----- Method: WarningTests>>test04SuppressWarnings (in category 'tests') -----
+ test04SuppressWarnings
+
+ self should: [Warning signal] raise: Warning.
+ Warning suppressWarnings.
+ self shouldnt: [Warning signal] raise: Warning.!

Item was added:
+ ----- Method: WarningTests>>test05SuppressAndResetOnStartUp (in category 'tests') -----
+ test05SuppressAndResetOnStartUp
+
+ self should: [Warning signal] raise: Warning.
+ Warning suppressAndResetOnStartUp.
+ self shouldnt: [Warning signal] raise: Warning.
+ Warning startUp: true.
+ self should: [Warning signal] raise: Warning.!

Item was added:
+ ----- Method: WarningTests>>test06SuppressDeprecations (in category 'tests') -----
+ test06SuppressDeprecations
+
+ self should: [self deprecated] raise: Deprecation.
+ Deprecation suppressWarnings.
+ self shouldnt: [self deprecated] raise: Deprecation.!