def discover(directory): directory = os.path.expanduser( directory) # The tilde does not work with os.chdir os.chdir(directory) # Discovering tests using unittest framework loader = TestLoader() tests = loader.discover(directory, top_level_dir=directory) result = EmacsTestResult() # Create a buffer (if it not exists) and put the formatted results # inside it let = Let() lisp.get_buffer_create("unittest") let.push_excursion() lisp.set_buffer("unittest") lisp.erase_buffer() tests.run(result) lisp.insert("\n") lisp.insert("Errors:\n") for test, traceback in result.errors: lisp.insert(str(test)) lisp.insert(traceback) let.pop_excursion() lisp.pop_to_buffer("unittest") lisp.compilation_mode() lisp.beginning_of_buffer()
def discover(directory): directory = os.path.expanduser(directory) # The tilde does not work with os.chdir os.chdir(directory) # Discovering tests using unittest framework loader = TestLoader() tests = loader.discover(directory, top_level_dir=directory) result = EmacsTestResult() # Create a buffer (if it not exists) and put the formatted results # inside it let = Let() lisp.get_buffer_create("unittest") let.push_excursion() lisp.set_buffer("unittest") lisp.erase_buffer() tests.run(result) lisp.insert("\n") lisp.insert("Errors:\n") for test, traceback in result.errors: lisp.insert(str(test)) lisp.insert(traceback) let.pop_excursion() lisp.pop_to_buffer("unittest") lisp.compilation_mode() lisp.beginning_of_buffer()
def get_buffer_content_prev(bend): where_am_i = lisp.point() lisp.beginning_of_buffer() st = lisp.point() s = lisp.buffer_substring(st, bend) lisp.goto_char(where_am_i) return s
def genall(): remem = lisp.point() lisp.beginning_of_buffer() res = True while res: res = lisp.re_search_forward("$$[[:ascii:][:nonascii:]]*?$$",None,lisp.t) lisp.backward_char(3) show() lisp.goto_char(remem)
def genall(): remem = lisp.point() lisp.beginning_of_buffer() res = True while res: res = lisp.re_search_forward("$$[[:ascii:][:nonascii:]]*?$$", None, lisp.t) lisp.backward_char(3) show() lisp.goto_char(remem)
def get_buffer_content_prev(bend): where_am_i = lisp.point() lisp.beginning_of_buffer(); st = lisp.point() s = lisp.buffer_substring(st,bend) lisp.goto_char(where_am_i) return s