1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
/**
* Tests for language inference, class LanguageInfer
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "srchilite/languageinfer.h"
#include <sstream>
#include "asserttestexit.h"
#include "srchilite/utils.h"
using namespace std;
using namespace srchilite;
LanguageInfer inf;
static void testInfer(const string &input, const string &expected);
void testInfer(const string &input, const string &expected) {
stringstream buf;
buf << input << "\nother lines\nother lines" << endl;
string res = inf.infer(buf);
cout << "inferred language: " << res << endl;
assertEquals(expected, res);
}
int main() {
testInfer("#!/bin/sh", "sh");
testInfer("# !/bin/bash", "bash");
testInfer("#! /usr/local/bin/python", "python");
testInfer("#! mypython ", "mypython");
testInfer("#! usr/local/bin/perl", "perl");
testInfer("#! ../usr/local/bin/perl", "perl");
testInfer("#! ../usr/../local/bin/sh", "sh");
// now test emacs specifications
testInfer("# -*- perl -*-", "perl");
//testInfer("# -*- perl, as specified in Emacs -*-", "perl");
//testInfer("# -*- Perl, as specified in Emacs -*-", "Perl");
//testInfer("# -*- php3, as specified in Emacs -*-", "php3");
// https://savannah.gnu.org/patch/?8175
testInfer("# -*- mode: perl -*-", "perl");
// Emacs has precedence
testInfer("#!/bin/sh\n# -*- tcl -*-", "tcl");
// try with the env specification
testInfer("#! /usr/bin/env python", "python");
testInfer("#! /bin/env perl", "perl");
// just a small check for tolower
string s = "Lisp";
Utils::toLower(s);
cout << "lowered string: " << s << endl;
assertEquals("lisp", s);
cout << "lowered string: " << Utils::tolower("Php3") << endl;
assertEquals("php3", Utils::tolower("Php3"));
// try with scripts starting with <?
testInfer("<?php", "php");
testInfer("<?xml", "xml");
// try xml like
testInfer("<!DOCTYPE kpartgui ", "xml");
cout << "test_langinfer: SUCCESS" << endl;
return 0;
}
|
