From 84d0abc8965fe21e43f0ca81501efa2cc125e8a7 Mon Sep 17 00:00:00 2001 From: Ed J Date: Tue, 14 Jan 2025 14:50:04 +0000 Subject: [PATCH] capture current wrong upward propagate_badflag - #517 --- t/bad.t | 1 + 1 file changed, 1 insertion(+) diff --git a/t/bad.t b/t/bad.t index 3dd6ee429..321c74093 100644 --- a/t/bad.t +++ b/t/bad.t @@ -184,6 +184,7 @@ is_pdl $s[2], pdl(66.5), "setbadif/stats test 3"; is_pdl $s[3], pdl(22), "setbadif/stats test 4"; is_pdl $s[4], pdl(98), "setbadif/stats test 5"; is_pdl $s[6], pdl(26.7312), abstol("setbadif/stats test 6"); +ok $x->badflag, 'badflag wrongly set on input after setbadif'; # how about setbadtoval empty()->setbadtoval(20); # shouldn't segfault