Add support for `ptop` fixer (#3652)

* Add support for `ptop` fixer

* add test file for ptop tests

* called wrong fixer in assertion test

* use ' %s %t' instead of ' %t %t'

2 files changed, 38 insertions, 0 deletions

diff --git a/test/fixers/test_ptop_fixer_callback.vader b/test/fixers/test_ptop_fixer_callback.vader
new file mode 100644
index 00000000..7cf632e3
--- /dev/null
+++ b/test/fixers/test_ptop_fixer_callback.vader
@@ -0,0 +1,38 @@
+Before:
+  Save g:ale_pascal_ptop_executable
+  Save g:ale_pascal_ptop_options
+
+  " Use an invalid global executable, so we don't match it.
+  let g:ale_pascal_ptop_executable = 'xxxinvalid'
+  let g:ale_pascal_ptop_options = ''
+
+  call ale#test#SetDirectory('/testplugin/test/fixers')
+
+After:
+  Restore
+
+  call ale#test#RestoreDirectory()
+
+Execute(The ptop callback should return the correct default values):
+  call ale#test#SetFilename('../test-files/pascal/test.pas')
+
+  AssertEqual
+  \ {
+  \   'read_temporary_file': 1,
+  \   'command': ale#Escape('xxxinvalid')
+  \     . ' %s %t',
+  \ },
+  \ ale#fixers#ptop#Fix(bufnr(''))
+
+Execute(The ptop callback should include custom ptop options):
+  let g:ale_pascal_ptop_options = "-i 2"
+  call ale#test#SetFilename('../test-files/pascal/test.pas')
+
+  AssertEqual
+  \ {
+  \   'read_temporary_file': 1,
+  \   'command': ale#Escape('xxxinvalid')
+  \     . ' ' . g:ale_pascal_ptop_options
+  \     . ' %s %t',
+  \ },
+  \ ale#fixers#ptop#Fix(bufnr(''))
diff --git a/test/test-files/pascal/test.pas b/test/test-files/pascal/test.pas
new file mode 100644
index 00000000..e69de29b
--- /dev/null
+++ b/test/test-files/pascal/test.pas