$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 ,
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
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
== _menuID'; note sprintf qq(\t=> "0x%08x": menuID\n), notepad()->{_menuID} // '<undef>';
isnt $mPlugin, $mMain, 'getPluginMenuHandle() different than getMainMenuHandle()';
}
# msgBox, pro
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
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
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 $