From 1442afce8df716b6a92a168e823d7fb70f7aa5bd Mon Sep 17 00:00:00 2001 From: tomcl Date: Thu, 30 Aug 2018 22:33:04 +0100 Subject: [PATCH] correct failed .NET test --- src/js/fable-core/Long.js | 1 - tests/Main/ConvertTests.fs | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/js/fable-core/Long.js b/src/js/fable-core/Long.js index 6ba6b7a139..dd4ed33735 100644 --- a/src/js/fable-core/Long.js +++ b/src/js/fable-core/Long.js @@ -198,7 +198,6 @@ export function fromInteger(value, unsigned, kind) { case 2: x = value >> 0; xh = x; break; case 6: x = value >>> 0; } - if (unsigned) xh = 0; return fromBits(x, xh >> 31, unsigned); } diff --git a/tests/Main/ConvertTests.fs b/tests/Main/ConvertTests.fs index 75d466e614..353c8aa553 100644 --- a/tests/Main/ConvertTests.fs +++ b/tests/Main/ConvertTests.fs @@ -255,7 +255,7 @@ let tests = testCase "Special cases conversion to/from Int64 work" <| fun () -> let xn = -1L let xnu = 0xFFFFFFFFFFFFFFFFuL - -1 |> uint64 |> equal 0xFFFFFFFFuL + -1 |> uint64 |> equal xnu 0xFFFFFFFFu |> int64 |> equal 0xFFFFFFFFL xn |> uint64 |> equal xnu xnu |> int64 |> equal -1L