[Git][ghc/ghc][wip/js-staging] Use js_broken(22360) for releavant tests

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC


Commits:
ded33aa6 by Josh Meredith at 2022-10-26T08:26:56+00:00
Use js_broken(22360) for releavant tests

- - - - -


3 changed files:

- testsuite/tests/primops/should_run/all.T
- testsuite/tests/rep-poly/all.T
- testsuite/tests/unlifted-datatypes/should_compile/all.T


Changes:

=====================================
testsuite/tests/primops/should_run/all.T
=====================================
@@ -9,7 +9,7 @@ test('T10481', exit_code(1), compile_and_run, [''])
 test('T10678',
      [ collect_stats('bytes allocated',5),
        only_ways(['normal']),
-       js_skip
+       js_broken(22360)
      ],
      compile_and_run, ['-O'])
 test('T11296', normal, compile_and_run, [''])


=====================================
testsuite/tests/rep-poly/all.T
=====================================
@@ -15,7 +15,7 @@ test('T18170b', [extra_files(['T18170c.hs']), expect_broken(19893)], multimod_co
 # T18170b isn't actually broken, but it causes a Core Lint error
 # even though the program is (correctly) rejected by the typechecker
 test('T18481', normal, compile, [''])
-test('T18481a', js_skip, compile, [''])
+test('T18481a', js_broken(22360), compile, [''])
 test('T18534', normal, compile_fail, [''])
 test('T19615', normal, compile_fail, [''])
 test('T19709a', normal, compile_fail, [''])
@@ -30,7 +30,7 @@ test('T20426', normal, compile_fail, [''])
 test('T21239', normal, compile, [''])
 test('T21544', normal, compile, ['-Wno-deprecated-flags'])
 
-test('EtaExpandDataCon', js_skip, compile, ['-O'])
+test('EtaExpandDataCon', js_broken(22360), compile, ['-O'])
 test('EtaExpandStupid1', normal, compile, ['-Wno-deprecated-flags'])
 test('EtaExpandStupid2', normal, compile_fail, ['-Wno-deprecated-flags'])
 test('LevPolyLet', normal, compile_fail, [''])
@@ -43,7 +43,7 @@ test('RepPolyBackpack1', normal, backpack_compile_fail, [''])
 test('RepPolyBackpack2', req_c, backpack_run, [''])
 test('RepPolyBackpack3', normal, backpack_compile_fail, [''])
 test('RepPolyBackpack4', req_c, backpack_run, [''])
-test('RepPolyBackpack5', js_skip, backpack_run, [''])
+test('RepPolyBackpack5', js_broken(22360), backpack_run, [''])
 test('RepPolyBinder', normal, compile_fail, [''])
 test('RepPolyCase1', normal, compile_fail, [''])
 test('RepPolyClassMethod', normal, compile_fail, [''])
@@ -79,7 +79,7 @@ test('RepPolySum', normal, compile_fail, [''])
 test('RepPolyTuple', normal, compile_fail, [''])
 test('RepPolyTupleSection', normal, compile_fail, [''])
 test('RepPolyUnboxedPatterns', normal, compile_fail, [''])
-test('RepPolyUnliftedDatatype', js_skip, compile, [''])
+test('RepPolyUnliftedDatatype', js_broken(22360), compile, [''])
 test('RepPolyUnliftedDatatype2', js_skip, compile, ['-O'])
 test('RepPolyUnliftedNewtype', normal, compile,
      ['-fno-warn-partial-type-signatures -fno-warn-deprecated-flags'])


=====================================
testsuite/tests/unlifted-datatypes/should_compile/all.T
=====================================
@@ -1,4 +1,4 @@
 test('UnlDataMonoSigs', normal, compile, [''])
-test('UnlDataPolySigs', js_skip, compile, [''])
+test('UnlDataPolySigs', js_broken(22360), compile, [''])
 test('UnlDataFams', normal, compile, [''])
-test('UnlDataUsersGuide', js_skip, compile, [''])
+test('UnlDataUsersGuide', js_broken(22360), compile, [''])



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/ded33aa67f518167bb87ed0547cd86407acc7040

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/ded33aa67f518167bb87ed0547cd86407acc7040
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221026/82dd3710/attachment-0001.html>