55 lines
1.5 KiB
Lua
55 lines
1.5 KiB
Lua
local editor = NewFile()
|
|
local line = "246"
|
|
local comment = "%-%-"
|
|
|
|
editor:AddText(([[
|
|
1
|
|
%s
|
|
3]]):format(line))
|
|
|
|
local findReplace = ide.findReplace
|
|
findReplace.findText = line
|
|
findReplace:FindString()
|
|
|
|
ide.frame:ProcessEvent(wx.wxCommandEvent(
|
|
wx.wxEVT_COMMAND_MENU_SELECTED, ID_COMMENT))
|
|
|
|
local text = editor:GetText()
|
|
ok(text:find(comment..line) and not text:find(comment.."3"),
|
|
"One-line selection is commented.")
|
|
|
|
findReplace.findText = "--"..line
|
|
findReplace:FindString()
|
|
editor:SetCurrentPos(editor:GetLength())
|
|
|
|
ide.frame:ProcessEvent(wx.wxCommandEvent(
|
|
wx.wxEVT_COMMAND_MENU_SELECTED, ID_COMMENT))
|
|
|
|
text = editor:GetText()
|
|
ok(text:find(comment.." "..comment..line) and text:find(comment.."3"),
|
|
"Commented and uncommented lines are commented.")
|
|
|
|
findReplace:FindString()
|
|
editor:SetCurrentPos(editor:GetLength())
|
|
|
|
ide.frame:ProcessEvent(wx.wxCommandEvent(
|
|
wx.wxEVT_COMMAND_MENU_SELECTED, ID_COMMENT))
|
|
|
|
text = editor:GetText()
|
|
ok(not text:find(comment.." "..comment..line) and not text:find(comment.."3"),
|
|
"Multi-line commented text is uncommented.")
|
|
|
|
editor:SetAnchor(0)
|
|
editor:SetCurrentPos(editor:PositionFromLine(2))
|
|
|
|
ide.frame:ProcessEvent(wx.wxCommandEvent(
|
|
wx.wxEVT_COMMAND_MENU_SELECTED, ID_COMMENT))
|
|
|
|
text = editor:GetText()
|
|
ok(text:find(comment.." "..comment..line) and text:find(comment.."1") and not text:find(comment.."3"),
|
|
"Selection that ends at the beginning of the line doesn't comment line.")
|
|
|
|
-- cleanup
|
|
ide:GetDocument(editor).isModified = false
|
|
ClosePage()
|