" Test for the termdebug plugin

source shared.vim
source check.vim

CheckUnix
CheckFeature terminal
CheckExecutable gdb
CheckExecutable gcc

let g:GDB = exepath('gdb')
if g:GDB->empty()
  throw 'Skipped: gdb is not found in $PATH'
endif

let g:GCC = exepath('gcc')
if g:GCC->empty()
  throw 'Skipped: gcc is not found in $PATH'
endif

packadd termdebug

func Test_termdebug_basic()
  let lines =<< trim END
    #include <stdio.h>
    #include <stdlib.h>

    int isprime(int n)
    {
      if (n <= 1)
        return 0;

      for (int i = 2; i <= n / 2; i++)
        if (n % i == 0)
          return 0;

      return 1;
    }

    int main(int argc, char *argv[])
    {
      int n = 7;

      printf("%d is %s prime\n", n, isprime(n) ? "a" : "not a");

      return 0;
    }
  END
  call writefile(lines, 'XTD_basic.c', 'D')
  call system($'{g:GCC} -g -o XTD_basic XTD_basic.c')

  edit XTD_basic.c
  Termdebug ./XTD_basic
  call WaitForAssert({-> assert_equal(3, winnr('$'))})
  let gdb_buf = winbufnr(1)
  wincmd b
  Break 9
  call term_wait(gdb_buf)
  redraw!
  call assert_equal([
        \ {'lnum': 9, 'id': 1014, 'name': 'debugBreakpoint1.0',
        \  'priority': 110, 'group': 'TermDebug'}],
        \ sign_getplaced('', #{group: 'TermDebug'})[0].signs)
  Run
  call term_wait(gdb_buf, 400)
  redraw!
  call WaitForAssert({-> assert_equal([
        \ {'lnum': 9, 'id': 12, 'name': 'debugPC', 'priority': 110,
        \  'group': 'TermDebug'},
        \ {'lnum': 9, 'id': 1014, 'name': 'debugBreakpoint1.0',
        \  'priority': 110, 'group': 'TermDebug'}],
        \ sign_getplaced('', #{group: 'TermDebug'})[0].signs)})
  Finish
  call term_wait(gdb_buf)
  redraw!
  call WaitForAssert({-> assert_equal([
        \ {'lnum': 9, 'id': 1014, 'name': 'debugBreakpoint1.0',
        \  'priority': 110, 'group': 'TermDebug'},
        \ {'lnum': 20, 'id': 12, 'name': 'debugPC',
        \  'priority': 110, 'group': 'TermDebug'}],
        \ sign_getplaced('', #{group: 'TermDebug'})[0].signs)})
  Continue
  wincmd t
  quit!
  redraw!
  call WaitForAssert({-> assert_equal(1, winnr('$'))})
  call assert_equal([], sign_getplaced('', #{group: 'TermDebug'})[0].signs)

  call delete('XTD_basic')
  %bw!
endfunc

func Test_termdebug_mapping()
  %bw!
  call assert_equal(maparg('K', 'n', 0, 1)->empty(), 1)
  call assert_equal(maparg('-', 'n', 0, 1)->empty(), 1)
  call assert_equal(maparg('+', 'n', 0, 1)->empty(), 1)
  Termdebug
  call WaitForAssert({-> assert_equal(3, winnr('$'))})
  wincmd b
  call assert_equal(maparg('K', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('-', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('+', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('K', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('-', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('+', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('K', 'n', 0, 1).rhs, ':Evaluate<CR>')
  wincmd t
  quit!
  redraw!
  call WaitForAssert({-> assert_equal(1, winnr('$'))})
  call assert_equal(maparg('K', 'n', 0, 1)->empty(), 1)
  call assert_equal(maparg('-', 'n', 0, 1)->empty(), 1)
  call assert_equal(maparg('+', 'n', 0, 1)->empty(), 1)

  %bw!
  nnoremap K :echom "K"<cr>
  nnoremap - :echom "-"<cr>
  nnoremap + :echom "+"<cr>
  Termdebug
  call WaitForAssert({-> assert_equal(3, winnr('$'))})
  wincmd b
  call assert_equal(maparg('K', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('-', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('+', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('K', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('-', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('+', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('K', 'n', 0, 1).rhs, ':Evaluate<CR>')
  wincmd t
  quit!
  redraw!
  call WaitForAssert({-> assert_equal(1, winnr('$'))})
  call assert_equal(maparg('K', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('-', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('+', 'n', 0, 1)->empty(), 0)
  call assert_equal(maparg('K', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('-', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('+', 'n', 0, 1).buffer, 0)
  call assert_equal(maparg('K', 'n', 0, 1).rhs, ':echom "K"<cr>')

  %bw!
  nnoremap <buffer> K :echom "bK"<cr>
  nnoremap <buffer> - :echom "b-"<cr>
  nnoremap <buffer> + :echom "b+"<cr>
  Termdebug
  call WaitForAssert({-> assert_equal(3, winnr('$'))})
  wincmd b
  call assert_equal(maparg('K', 'n', 0, 1).buffer, 1)
  call assert_equal(maparg('-', 'n', 0, 1).buffer, 1)
  call assert_equal(maparg('+', 'n', 0, 1).buffer, 1)
  call assert_equal(maparg('K', 'n', 0, 1).rhs, ':echom "bK"<cr>')
  wincmd t
  quit!
  redraw!
  call WaitForAssert({-> assert_equal(1, winnr('$'))})
  call assert_equal(maparg('K', 'n', 0, 1).buffer, 1)
  call assert_equal(maparg('-', 'n', 0, 1).buffer, 1)
  call assert_equal(maparg('+', 'n', 0, 1).buffer, 1)
  call assert_equal(maparg('K', 'n', 0, 1).rhs, ':echom "bK"<cr>')

  %bw!
endfunc

" vim: shiftwidth=2 sts=2 expandtab