diff --git a/t/pmc/lexpad.t b/t/pmc/lexpad.t index 76ab09957d..a15cae4c75 100644 --- a/t/pmc/lexpad.t +++ b/t/pmc/lexpad.t @@ -19,10 +19,11 @@ Tests the LexPad PMC. .sub main :main .include 'test_more.pir' - plan(8) + plan(9) new_test() test_keyed() + test_keyed_empty() test_iter() .end @@ -63,6 +64,15 @@ eh: end: .end +.sub test_keyed_empty + .local pmc info, pad, lex + info = new ['LexInfo'] + pad = new ['LexPad'], info + lex = pad['nosuchlex'] + $I0 = isnull lex + ok($I0, 'get an item from empty lexpad gives null') +.end + .sub 'test_iter' .local pmc str1,str2,str3