public void testAll() throws Exception
{
PerlEditor editor = openEditor("EPICTest/test_ExplainErrors.pl");
PerlEditor.TestInterface testIface = editor.getTestInterface();
ExplainErrorsView view = null;
try
{
view = (ExplainErrorsView) findView(VIEW_ID);
if (view != null) closeView(view);
IVerticalRuler ruler = testIface.getVerticalRuler();
IAnnotationModel model = ruler.getModel();
IMarker marker = getErrorMarker(model);
assertNotNull(marker);
editor.addRulerContextMenuListener(new PopupActionRunner(ACTION_ID));
Mouse.click(getMarkerLocation(editor, marker), true);
view = (ExplainErrorsView) findView(VIEW_ID);
assertNotNull(view);
assertTrue(view.getText().startsWith("Bareword"));
}
finally
{
if (view != null) closeView(view);
closeEditor(editor);