Group
Extension

Matches 7

Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/npp-buffer.t ( view source; MetaCPAN )
$txt =~ s/\0+$//;   # in case it reads back nothing, I need to remove the trailing NULLs
        isnt $txt, "", sprintf 'reloadCurrentDocument: verify buffer no longer empty';
        is length($txt
e_getRawString( $SCIMSG{SCI_GETTEXT}, 1+$partial_length, { trim => 'wparam', wlength=>1 } );
    isnt $txt, "", sprintf 'reloadBuffer: verify buffer no longer empty';
    is length($txt), $orig_len 
e_getRawString( $SCIMSG{SCI_GETTEXT}, 1+$partial_length, { trim => 'wparam', wlength=>1 } );
    isnt $txt, "", sprintf 'reloadFile: verify buffer no longer empty';
    is length($txt), $orig_len , 
Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/npp-files.t ( view source; MetaCPAN )
 retval = %d', $ret;

    my $fName = path( notepad()->getCurrentFilename() )->basename();
    isnt $fName, $fnew2->basename(), sprintf 'saveAsCopy(): getCurrentFilename() = "%s"', $fName;
    is 
runCodeAndClickPopup( $cref, qr/^Save/, 0 , 0.5); # press YES (n=0), with extra delay
    }
    isnt 0+$ret, 0, sprintf 'saveAllFiles(): ret = %d', $ret;

    # should be more-recently modified
 
;
    like $name, qr/^new \d/i, sprintf 'close(): filename should be /new #/: "%s"', $name;
    isnt $name, $oldname, sprintf 'close(): filename should not match old name ("%s")', $oldname;
}

do
Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/sci-testcases.t ( view source; MetaCPAN )
ginal #14: getLine(1) for empty line should NOT return \0
    my $txt = editor->getLine(1);
    isnt $txt, "\0", 'ISSUE 14: getLine() for empty line should NOT return \0'
        or diag sprintf "\
empty string';

    # reopen #14: ditto for getSelText()
    $txt = editor->getSelText();
    isnt $txt, "\0", 'ISSUE 14: getSelText() for empty selection should NOT return \0'
        or diag sp
Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/npp-gui.t ( view source; MetaCPAN )
 == _menuID'; note sprintf qq(\t=> "0x%08x": menuID\n), notepad()->{_menuID} // '<undef>';

    isnt $mPlugin, $mMain, 'getPluginMenuHandle() different than getMainMenuHandle()';
}

# msgBox, pro
Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/02-bits.t ( view source; MetaCPAN )
hWnd)//'<undef>';
note sprintf "\tWaitWindowLike: class= '%s'", GetClassName($hWnd)//'<undef>';
isnt $hWnd, notepad->hwnd(), 'Debug Info should have popped up by now';
is my $dlgname = GetWindowTex
Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/sci-auto.t ( view source; MetaCPAN )
or bail out
{
    my $err;
    eval { editor()->getText; 1; } or do { chomp($err = $@) };
    isnt defined($err), "autoload: verify works with known method";
    note sprintf qq|\tautoload: edito
Win32-Mechanize-NotepadPlusPlus ( P/PE/PETERCJ/Win32-Mechanize-NotepadPlusPlus-0.011.tar.gz, PETERCJ, 2023; MetaCPAN )
Win32-Mechanize-NotepadPlusPlus/t/npp-meta.t ( view source; MetaCPAN )
 version->parse(v8.0.0)) {
	is $ret, undef, "getCommandLine expects undef for $ver";
} else {
	isnt $ret, undef, "getCommandLine expects defined for $ver";
}
note sprintf "\t=> \"%s\"", defined $

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.