[squeak-dev] The Trunk: KernelTests-ul.351.mcz

[c***@source.squeak.org]

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.351.mcz

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

Name: KernelTests-ul.351
Author: ul
Time: 24 October 2018, 11:07:17.060553 pm
UUID: a1fcd460-09b2-46a3-8ea4-4700121ead86
Ancestors: KernelTests-pre.350

- more thorough #testIsPrime

=============== Diff against KernelTests-pre.350 ===============

Item was changed:
----- Method: IntegerTest>>testIsPrime (in category 'tests - basic') -----
testIsPrime

+ | i |
"Not primes:"
+ #(-1000000000000000 -100 -5 -3 -2 -1 0 1) do: [ :each |
- #(-100 -5 -3 -2 -1 0 1) do: [ :each |
self deny: each isPrime ].

+ "Check all non-negative integers up to one million."
+ i := 0.
+ Integer primesUpTo: 1000000 do: [ :prime |
+ [ i < prime ] whileTrue: [
+ self deny: i isPrime.
+ i := i + 1 ].
+ self assert: i isPrime.
+ i := i + 1 ].
+ [ i <= 1000000 ] whileTrue: [
+ self deny: i isPrime.
+ i := i + 1 ].
+
"The following tests should return 'true'"
#(17 78901 104729 15485863 2038074743) do: [ :each |
self assert: each isPrime ].

+ "The following tests should return 'false' (first 5 are Carmichael numbers)"
- "The following tests should return 'false' (first 5 are Carmichael integers)"
#(561 2821 6601 10585 15841 256 29996224275831) do: [ :each |
+ self deny: each isPrime ].
+ !
- se