{
    $t2->destroy if Tk::Exists($t2);
    $t2 = $mw->Text;
    $t2->insert('1.0', "abcdef\nghijk\n1234");
    $t2->tagAdd('sel', '1.0', '1.3');
    is($mw->SelectionGet, 'abc');
    $mw->SelectionClear;
# *
    eval { $mw->SelectionGet };
    like($@, qr{\QPRIMARY selection doesn't exist or form "STRING" not defined});
    $t2->tagAdd('sel', '1.0', '1.3');
    is($mw->SelectionGet, 'abc');
}