Organization + Task 1 objectives t#30
This commit is contained in:
26
tests/sprint1/test_real_alpha_file2.alpha
Normal file
26
tests/sprint1/test_real_alpha_file2.alpha
Normal file
@ -0,0 +1,26 @@
|
||||
(* Type definitions *)
|
||||
type string: 1 -> character
|
||||
type int2int: integer -> integer
|
||||
type string2int: string -> integer
|
||||
(* Function prototypes
|
||||
They use the above type definitions
|
||||
*)
|
||||
function square : int2int
|
||||
function entry : string2int
|
||||
(* Function definition
|
||||
Functions must be declared before they are defined
|
||||
*)
|
||||
square(x) := {
|
||||
return x * x;
|
||||
}
|
||||
(* Function definition
|
||||
entry is the first function called
|
||||
*)
|
||||
entry(arg) := {
|
||||
input = 7;
|
||||
expected = 49;
|
||||
actual := square(input);
|
||||
rseult := expected = actual;
|
||||
return 0;
|
||||
[ integer: input; integer: expected; integer: actual; boolean: result; string: input ]
|
||||
}
|
Reference in New Issue
Block a user