Skip to content

Commit

Permalink
tests
Browse files Browse the repository at this point in the history
  • Loading branch information
@fc1943s
fc1943s committed Jun 6, 2024
1 parent 0f681c4 commit bd012de
Show file tree
Hide file tree
Showing 80 changed files with 117,718 additions and 94,407 deletions.
62 changes: 31 additions & 31 deletions apps/parser/JsonParser.dib.html
View file

Large diffs are not rendered by default.

62 changes: 31 additions & 31 deletions apps/parser/JsonParser.dib.ipynb
View file

Large diffs are not rendered by default.

28 changes: 14 additions & 14 deletions apps/spiral/Eval.dib
View file
Original file line number Diff line number Diff line change
Expand Up @@ -145,7 +145,7 @@ let mutable allCode = ""
#!fsharp

let getParentProcessId () =
if SpiralRuntime.is_windows () |> not
if SpiralPlatform.is_windows () |> not
then 0u
else
let pid = System.Diagnostics.Process.GetCurrentProcess().Id
Expand Down Expand Up @@ -425,7 +425,7 @@ let processSpiralOutput
builderCommands
|> Array.map (fun builderCommand ->
let path =
workspaceRoot </> $@"workspace/target/release/spiral_builder{SpiralRuntime.get_executable_suffix ()}"
workspaceRoot </> $@"workspace/target/release/spiral_builder{SpiralPlatform.get_executable_suffix ()}"
|> System.IO.Path.GetFullPath
let commands =
if props.backend = Supervisor.Fsharp
Expand All @@ -452,7 +452,7 @@ let processSpiralOutput
l1 = command
l2 = [|
"AUTOMATION", assemblyName = "dotnet-repl" |> string
"TRACE_LEVEL", $"%A{Info}"
"TRACE_LEVEL", $"%A{if props.printCode then props.traceLevel else Info}"
|]
l6 = workspaceRootExternal
}
Expand All @@ -479,7 +479,7 @@ let processSpiralOutput
then None
else
let code =
if props.printCode || props.builderCommands.Length > 1
if props.builderCommands.Length > 1
then
let header = "System.Console.WriteLine \".fsx output:\"\n"
$"{header}{props.code}"
Expand Down Expand Up @@ -691,7 +691,7 @@ let inline eval
then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map ((=) "true")
else None
)
|> Option.defaultValue true
|> Option.defaultValue false

let oldLevel = get_trace_level ()
let traceLevel =
Expand Down Expand Up @@ -794,9 +794,9 @@ let inline eval
let ch, errors2 = fsi_eval eval cancellationToken
let errors =
errors2
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
// |> Array.map (fun (e1, e2, e3, _) ->
// (e1, e2, e3, ("", (0, 0), (0, 0)))
// )
|> Array.append errors
ch, errors
| [], _ ->
Expand All @@ -808,9 +808,9 @@ let inline eval
let ch, errors2 = fsi_eval code cancellationToken
let errors =
errors2
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
// |> Array.map (fun (e1, e2, e3, _) ->
// (e1, e2, e3, ("", (0, 0), (0, 0)))
// )
|> Array.append errors
ch, errors
| _ ->
Expand Down Expand Up @@ -853,9 +853,9 @@ let inline eval
let ch, errors2 = fsi_eval code cancellationToken
let errors =
errors2
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
// |> Array.map (fun (e1, e2, e3, _) ->
// (e1, e2, e3, ("", (0, 0), (0, 0)))
// )
|> Array.append errors
ch, errors
match ch with
Expand Down
28 changes: 14 additions & 14 deletions apps/spiral/Eval.dib.html
View file

Large diffs are not rendered by default.

28 changes: 14 additions & 14 deletions apps/spiral/Eval.dib.ipynb
View file

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

28 changes: 14 additions & 14 deletions apps/spiral/Eval.fs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -94,7 +94,7 @@ module Eval =

/// ## getParentProcessId
let getParentProcessId () =
if SpiralRuntime.is_windows () |> not
if SpiralPlatform.is_windows () |> not
then 0u
else
let pid = System.Diagnostics.Process.GetCurrentProcess().Id
Expand Down Expand Up @@ -354,7 +354,7 @@ module Eval =
builderCommands
|> Array.map (fun builderCommand ->
let path =
workspaceRoot </> $@"workspace/target/release/spiral_builder{SpiralRuntime.get_executable_suffix ()}"
workspaceRoot </> $@"workspace/target/release/spiral_builder{SpiralPlatform.get_executable_suffix ()}"
|> System.IO.Path.GetFullPath
let commands =
if props.backend = Supervisor.Fsharp
Expand All @@ -381,7 +381,7 @@ module Eval =
l1 = command
l2 = [|
"AUTOMATION", assemblyName = "dotnet-repl" |> string
"TRACE_LEVEL", $"%A{Info}"
"TRACE_LEVEL", $"%A{if props.printCode then props.traceLevel else Info}"
|]
l6 = workspaceRootExternal
}
Expand All @@ -408,7 +408,7 @@ module Eval =
then None
else
let code =
if props.printCode || props.builderCommands.Length > 1
if props.builderCommands.Length > 1
then
let header = "System.Console.WriteLine \".fsx output:\"\n"
$"{header}{props.code}"
Expand Down Expand Up @@ -610,7 +610,7 @@ module Eval =
then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map ((=) "true")
else None
)
|> Option.defaultValue true
|> Option.defaultValue false

let oldLevel = get_trace_level ()
let traceLevel =
Expand Down Expand Up @@ -713,9 +713,9 @@ module Eval =
let ch, errors2 = fsi_eval eval cancellationToken
let errors =
errors2
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
// |> Array.map (fun (e1, e2, e3, _) ->
// (e1, e2, e3, ("", (0, 0), (0, 0)))
// )
|> Array.append errors
ch, errors
| [], _ ->
Expand All @@ -727,9 +727,9 @@ module Eval =
let ch, errors2 = fsi_eval code cancellationToken
let errors =
errors2
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
// |> Array.map (fun (e1, e2, e3, _) ->
// (e1, e2, e3, ("", (0, 0), (0, 0)))
// )
|> Array.append errors
ch, errors
| _ ->
Expand Down Expand Up @@ -772,9 +772,9 @@ module Eval =
let ch, errors2 = fsi_eval code cancellationToken
let errors =
errors2
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
// |> Array.map (fun (e1, e2, e3, _) ->
// (e1, e2, e3, ("", (0, 0), (0, 0)))
// )
|> Array.append errors
ch, errors
match ch with
Expand Down
Loading

0 comments on commit bd012de

Please sign in to comment.