elvis/lci
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removing lines with more than 80 characters in tests

Browse Source
This commit is contained in:
elvis
2025-01-26 22:07:53 +01:00
parent ca39024ee3
commit f175a6089d
4 changed files with 243 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
test/testingImp.ml
View File

@ -27,7 +27,8 @@ let program =
(Sequence (
(Assignment ("x", (Integer 1))),
(Assignment ("b",
(Plus ((Plus (Variable "a", Variable "x")), (Variable "y")))))
(Plus ((Plus (Variable "a", Variable "x")),
(Variable "y")))))
)
)
)
@ -83,7 +84,8 @@ let program =
(Assignment ("b", (Plus (Variable "b", Integer 1)))),
(If (
(BCmp (Modulo (Variable "a", Integer 2), Integer 1)),
(Assignment ("a", Plus (Times (Integer 3, Variable "a"), Integer 1))),
(Assignment ("a", Plus (Times (Integer 3, Variable "a"),
Integer 1))),
(Assignment ("a", Division (Variable "a", Integer 2)))
))
))
@ -161,7 +163,8 @@ let program =
(BCmpGreater (Variable "n", Integer 1)),
(Sequence (
(Sequence (
(Assignment ("tmp", Plus (Variable "fnow", Variable "fnext"))),
(Assignment ("tmp", Plus (Variable "fnow",
Variable "fnext"))),
(Assignment ("fnow", Variable "fnext"))
)),
(Sequence (
@ -205,15 +208,21 @@ let program =
))
)),
(Sequence (
(Assignment ("d", Division (Minus (Variable "n", Integer 1), Power (Integer 2, Variable "s")))),
(Assignment ("d", Division (Minus (Variable "n", Integer 1),
Power (Integer 2, Variable "s")))),
(For (
(Assignment ("i", Integer 20)),
(BCmpGreater (Variable "i", Integer 0)),
(Assignment ("i", Minus (Variable "i", Integer 1))),
(Sequence (
Sequence (
(Assignment ("a", Plus (Rand (Minus (Variable "n", Integer 4)), Integer 2))),
(Assignment ("x", PowerMod (Variable "a", Variable "d", Variable "n")))),
(Assignment
("a",
Plus (Rand (Minus (Variable "n", Integer 4)),
Integer 2))),
(Assignment ("x", PowerMod (Variable "a",
Variable "d",
Variable "n")))),
Sequence (
(For (
(Assignment ("j", Integer 0)),
@ -221,9 +230,17 @@ let program =
(Assignment ("j", Plus (Variable "j", Integer 1))),
(Sequence (
Sequence (
(Assignment ("y", PowerMod (Variable "x", Integer 2, Variable "n"))),
(Assignment ("y", PowerMod (Variable "x",
Integer 2,
Variable "n"))),
(If (
(BAnd (BAnd (BCmp (Variable "y", Integer 1), BNot (BCmp (Variable "x", Integer 1))), BNot (BCmp (Variable "x", Minus (Variable "n", Integer 1))))),
(BAnd
(BAnd (BCmp (Variable "y", Integer 1),
BNot (BCmp (Variable "x",
Integer 1))),
BNot (BCmp (Variable "x",
Minus (Variable "n",
Integer 1))))),
(Assignment ("result", Integer 1)),
(Skip)
))),