some tests for bad squeeze attempts

This commit is contained in:
dzaima 2025-05-11 20:27:36 +03:00
parent 1e603f8921
commit b2259d77c1
2 changed files with 3 additions and 0 deletions

View File

@ -130,6 +130,7 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨"𝕨",•Repr𝕩,
!"Integer out of range: 1e20" % %USE evar /_evar 1e20(100) 20010 !"Integer out of range: 1e20" % %USE evar /_evar 1e20(100) 20010
! (//)81525329010115516558459489491213121328135013671391140714691486155915661576158215921599160916161626163540864093411441224141414941694177 ! (//)81525329010115516558459489491213121328135013671391140714691486155915661576158215921599160916161626163540864093411441224141414941694177
/1e412 %% 050005000 /1e412 %% 050005000
!"Expected integer, got character" % / "hello"
!"/⁼𝕩: 𝕩 cannot contain negative numbers" % %USE evar /_evar (10) ¯2 20+10 !"/⁼𝕩: 𝕩 cannot contain negative numbers" % %USE evar /_evar (10) ¯2 20+10
!"/⁼𝕩: 𝕩 must consist of natural numbers" % %USE evar /_evar (10) 2.2 20+10 !"/⁼𝕩: 𝕩 must consist of natural numbers" % %USE evar /_evar (10) 2.2 20+10
!"/⁼𝕩: 𝕩 must consist of natural numbers" % %USE evar /_evar (10) 1e20 20+10 !"/⁼𝕩: 𝕩 must consist of natural numbers" % %USE evar /_evar (10) 1e20 20+10

View File

@ -15,6 +15,7 @@
!"•BQN: Path must be a string" % 12 •BQN "2+2" !"•BQN: Path must be a string" % 12 •BQN "2+2"
!"•BQN: Filename must be a string" % •path, 12 •BQN "2+2" !"•BQN: Filename must be a string" % •path, 12 •BQN "2+2"
•path, "abc/def" •BQN "•name" %% "abc/def" •path, "abc/def" •BQN "•name" %% "abc/def"
!"•BQN: 𝕩 must be a string" % •BQN 3
!"No path present for •path" % •BQN"•path" !"No path present for •path" % •BQN"•path"
!"No arguments present for •args" % •BQN"•args" !"No arguments present for •args" % •BQN"•args"
!"No name present for •name" % •BQN"•name" !"No name present for •name" % •BQN"•name"
@ -210,6 +211,7 @@ v←1 ⋄ ! •BQN∘•Repr⊸≡ ⟨+,1‿2,+¨,(+V)(V+V),2‿2⥊↕4⟩
•Repr•ParseFloat¨ "1.2351641146031163604e-323", "1.2351641146031163605e-323" %% "1e¯323","1e¯323" •Repr•ParseFloat¨ "1.2351641146031163604e-323", "1.2351641146031163605e-323" %% "1e¯323","1e¯323"
!"•ParseFloat 𝕩: Input was empty" % •ParseFloat "" !"•ParseFloat 𝕩: Input was empty" % •ParseFloat ""
!"•ParseFloat 𝕩: Input was empty" % •ParseFloat 0 !"•ParseFloat 𝕩: Input was empty" % •ParseFloat 0
!"•ParseFloat 𝕩: Expected a character list argument" % •ParseFloat 3
!"•ParseFloat 𝕩: Input must have rank 1" % •ParseFloat <@ !"•ParseFloat 𝕩: Input must have rank 1" % •ParseFloat <@
!"•ParseFloat 𝕩: Input must have rank 1" % •ParseFloat 11'1' !"•ParseFloat 𝕩: Input must have rank 1" % •ParseFloat 11'1'
!"•ParseFloat 𝕩: Expected a character list argument" % •ParseFloat 4849 !"•ParseFloat 𝕩: Expected a character list argument" % •ParseFloat 4849