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()