← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/tools/emacs/erlang.el

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-05-07 15:07:37 UTC
  • mfrom: (1.2.1 upstream) (5.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090507150737-i4yb5elwinm7r0hc
Tags: 1:13.b-dfsg1-1
http://bugs.debian.org/527053
http://bugs.debian.org/526682
http://bugs.debian.org/526627
* Removed another bunch of non-free RFCs from original tarball
  (closes: #527053).
* Fixed build-dependencies list by adding missing comma. This requires
  libsctp-dev again. Also, added libsctp1 dependency to erlang-base and
  erlang-base-hipe packages because the shared library is loaded via
  dlopen now and cannot be added using dh_slibdeps (closes: #526682).
* Weakened dependency of erlang-webtool on erlang-observer to recommends
  to avoid circular dependencies (closes: #526627).
* Added solaris-i386 to HiPE enabled architectures.
* Made script sources in /usr/lib/erlang/erts-*/bin directory executable,
  which is more convenient if a user wants to create a target Erlang system.
* Shortened extended description line for erlang-dev package to make it
  fit 80x25 terminals.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/tools/emacs/erlang.el
597
597
     erlang-skel-lib erlang-skel-header)
598
598
    ("Corba callback" "gen-corba-cb"
599
599
     erlang-skel-corba-callback erlang-skel-header)
600
 
    ("Erlang test suite TS frontend" "ts-test-suite"
 
600
    ("Small Common Test suite" "ct-test-suite-s"
 
601
     erlang-skel-ct-test-suite-s erlang-skel-header)
 
602
    ("Large Common Test suite" "ct-test-suite-l"
 
603
     erlang-skel-ct-test-suite-l erlang-skel-header)
 
604
    ("Erlang TS test suite" "ts-test-suite"
601
605
     erlang-skel-ts-test-suite erlang-skel-header)
602
 
    ("Erlang test suite CT frontend" "ct-test-suite"
603
 
     erlang-skel-ct-test-suite erlang-skel-header)
604
606
  )
605
607
  "*Description of all skeleton templates.
606
608
Both functions and menu entries will be created.
1418
1420
    "ok."n n
1419
1421
 
1420
1422
    (erlang-skel-separator 2)
1421
 
    "%% Function: all(Clause) -> Descr | TestCases | {skip,Reason}" n
 
1423
    "%% Function: all(Clause) -> Descr | Spec | {skip,Reason}" n
1422
1424
    "%%" n
1423
1425
    "%% Clause = doc | suite" n
1424
1426
    "%%   Indicates expected return value." n
1425
1427
    "%% Descr = [string()] | []" n
1426
 
    "%%   String that describes the test suite." n 
1427
 
    "%% TestCases = [TestCase] " n
1428
 
    "%% TestCase = atom()" n
1429
 
    "%%   Name of a test case." n
 
1428
    "%%   String that describes the test suite." n
 
1429
    "%% Spec = [TestCase]" n
 
1430
    "%%   A test specification." n
 
1431
    "%% TestCase = ConfCase | atom()" n
 
1432
    "%%   Configuration case, or the name of a test case function." n
 
1433
    "%% ConfCase = {conf,Init,Spec,End} |" n
 
1434
    "%%            {conf,Properties,Init,Spec,End}" n
 
1435
    "%% Init = End = {Mod,Func} | Func" n
 
1436
    "%%   Initialization and cleanup function." n
 
1437
    "%% Mod = Func = atom()" n
 
1438
    "%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}]" n
 
1439
    "%%   Execution properties of the test cases (may be combined)." n
 
1440
    "%% Shuffle = shuffle | {shuffle,Seed}" n
 
1441
    "%%   To get cases executed in random order." n
 
1442
    "%% Seed = {integer(),integer(),integer()}" n
 
1443
    "%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail |" n
 
1444
    "%%              repeat_until_any_ok | repeat_until_any_fail" n
 
1445
    "%%   To get execution of cases repeated." n
 
1446
    "%% N = integer() | forever" n
1430
1447
    "%% Reason = term()" n
1431
1448
    "%%   The reason for skipping the test suite." n
1432
1449
    "%%" n
1433
 
    "%% Description: Returns a description of the test suite (doc) and a" n
1434
 
    "%%              list of all test cases in the suite (suite)." n
 
1450
    "%% Description: Returns a description of the test suite when" n
 
1451
    "%%              Clause == doc, and a test specification (list" n
 
1452
    "%%              of the conf and test cases in the suite) when" n
 
1453
    "%%              Clause == suite." n
1435
1454
    (erlang-skel-separator 2)
1436
1455
    "all(doc) -> " n >
1437
1456
    "[\"Describe the main purpose of this suite\"];" n n
1452
1471
    "%% Descr = [string()] | []" n
1453
1472
    "%%   String that describes the test case." n 
1454
1473
    "%% Spec = [tuple()] | []" n
1455
 
    "%%   A test specification." n
 
1474
    "%%   A test specification, see all/1." n
1456
1475
    "%% Reason = term()" n
1457
1476
    "%%   The reason for skipping the test case." n
1458
1477
    "%%" n
1469
1488
   )
1470
1489
 "*The template of a library module.
1471
1490
Please see the function `tempo-define-template'.")
1472
 
(defvar erlang-skel-ct-test-suite
 
1491
 
 
1492
(defvar erlang-skel-ct-test-suite-l
1473
1493
 '((erlang-skel-include erlang-skel-large-header)
1474
1494
   "%% Note: This directive should only be used in test suites." n
1475
1495
    "-compile(export_all)." n n
1524
1544
    "ok." n n
1525
1545
 
1526
1546
    (erlang-skel-separator 2)
 
1547
    "%% Function: init_per_group(GroupName, Config0) ->" n
 
1548
    "%%               Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}" n
 
1549
    "%%" n
 
1550
    "%% GroupName = atom()" n
 
1551
    "%%   Name of the test case group that is about to run." n
 
1552
    "%% Config0 = Config1 = [tuple()]" n
 
1553
    "%%   A list of key/value pairs, holding configuration data for the group." n
 
1554
    "%% Reason = term()" n
 
1555
    "%%   The reason for skipping all test cases and subgroups in the group." n
 
1556
    "%%" n
 
1557
    "%% Description: Initialization before each test case group." n
 
1558
    (erlang-skel-separator 2)
 
1559
    "init_per_group(_GroupName, Config) ->" n >
 
1560
    "Config." n n
 
1561
 
 
1562
    (erlang-skel-separator 2)
 
1563
    "%% Function: end_per_group(GroupName, Config0) ->" n
 
1564
    "%%               void() | {save_config,Config1}" n
 
1565
    "%%" n
 
1566
    "%% GroupName = atom()" n
 
1567
    "%%   Name of the test case group that is finished." n
 
1568
    "%% Config0 = Config1 = [tuple()]" n
 
1569
    "%%   A list of key/value pairs, holding configuration data for the group." n
 
1570
    "%%" n
 
1571
    "%% Description: Cleanup after each test case group." n
 
1572
    (erlang-skel-separator 2)
 
1573
    "end_per_group(_GroupName, _Config) ->" n >
 
1574
    "ok." n n
 
1575
 
 
1576
    (erlang-skel-separator 2)
1527
1577
    "%% Function: init_per_testcase(TestCase, Config0) ->" n
1528
1578
    "%%               Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}" n
1529
1579
    "%%" n
1554
1604
    "%% Description: Cleanup after each test case." n
1555
1605
    (erlang-skel-separator 2)
1556
1606
    "end_per_testcase(_TestCase, _Config) ->" n >
1557
 
    "ok."n n
 
1607
    "ok." n n
1558
1608
 
1559
1609
    (erlang-skel-separator 2)
1560
 
    "%% Function: sequences() -> Sequences" n
1561
 
    "%%" n
1562
 
    "%% Sequences = [{SeqName,TestCases}]" n
1563
 
    "%% SeqName = atom()" n
1564
 
    "%%   Name of a sequence." n
1565
 
    "%% TestCases = [atom()]" n
1566
 
    "%%   List of test cases that are part of the sequence" n
1567
 
    "%%" n
1568
 
    "%% Description: Specifies test case sequences." n
 
1610
    "%% Function: groups() -> [Group]" n
 
1611
    "%%" n
 
1612
    "%% Group = {GroupName,Properties,GroupsAndTestCases}" n
 
1613
    "%% GroupName = atom()" n
 
1614
    "%%   The name of the group." n
 
1615
    "%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}]" n
 
1616
    "%%   Group properties that may be combined." n
 
1617
    "%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase]" n
 
1618
    "%% TestCase = atom()" n
 
1619
    "%%   The name of a test case." n
 
1620
    "%% Shuffle = shuffle | {shuffle,Seed}" n
 
1621
    "%%   To get cases executed in random order." n
 
1622
    "%% Seed = {integer(),integer(),integer()}" n
 
1623
    "%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail |" n
 
1624
    "%%              repeat_until_any_ok | repeat_until_any_fail" n
 
1625
    "%%   To get execution of cases repeated." n
 
1626
    "%% N = integer() | forever" n
 
1627
    "%%" n
 
1628
    "%% Description: Returns a list of test case group definitions." n
1569
1629
    (erlang-skel-separator 2)
1570
 
    "sequences() -> " n >
 
1630
    "groups() ->" n >
1571
1631
    "[]." n n
1572
1632
 
1573
1633
    (erlang-skel-separator 2)
1574
 
    "%% Function: all() -> TestCases | {skip,Reason}" n
 
1634
    "%% Function: all() -> GroupsAndTestCases | {skip,Reason}" n
1575
1635
    "%%" n
1576
 
    "%% TestCases = [TestCase | {sequence,SeqName}]" n
 
1636
    "%% GroupsAndTestCases = [{group,GroupName} | TestCase]" n
 
1637
    "%% GroupName = atom()" n
 
1638
    "%%   Name of a test case group." n
1577
1639
    "%% TestCase = atom()" n
1578
1640
    "%%   Name of a test case." n
1579
 
    "%% SeqName = atom()" n
1580
 
    "%%   Name of a test case sequence." n
1581
1641
    "%% Reason = term()" n
1582
 
    "%%   The reason for skipping all test cases." n
 
1642
    "%%   The reason for skipping all groups and test cases." n
1583
1643
    "%%" n
1584
 
    "%% Description: Returns the list of test cases that are to be executed." n
 
1644
    "%% Description: Returns the list of groups and test cases that" n 
 
1645
    "%%              are to be executed." n
1585
1646
    (erlang-skel-separator 2)
1586
1647
    "all() -> " n >
1587
 
    "[a_test_case]." n n
 
1648
    "[my_test_case]." n n
1588
1649
    
1589
1650
    n
1590
1651
    (erlang-skel-separator 2)
1604
1665
    "%% Note: This function is only meant to be used to return a list of" n
1605
1666
    "%% values, not perform any other operations." n  
1606
1667
    (erlang-skel-separator 2)
1607
 
    "a_test_case() -> " n >
 
1668
    "my_test_case() -> " n >
1608
1669
    "[]." n n
1609
1670
 
1610
1671
    (erlang-skel-separator 2)
1620
1681
    "%%   A comment about the test case that will be printed in the html log." n
1621
1682
    "%%" n
1622
1683
    "%% Description: Test case function. (The name of it must be specified in" n
1623
 
    "%%              the all/0 list for the test case to be executed)." n
1624
 
    (erlang-skel-separator 2)
1625
 
    "a_test_case(Config) -> " n >
 
1684
    "%%              the all/0 list or in a test case group for the test case" n
 
1685
    "%%              to be executed)." n
 
1686
    (erlang-skel-separator 2)
 
1687
    "my_test_case(_Config) -> " n >
 
1688
    "ok." n
 
1689
    )
 
1690
 "*The template of a library module.
 
1691
Please see the function `tempo-define-template'.")
 
1692
 
 
1693
(defvar erlang-skel-ct-test-suite-s
 
1694
 '((erlang-skel-include erlang-skel-large-header)
 
1695
    "-compile(export_all)." n n
 
1696
 
 
1697
    "-include(\"ct.hrl\")." n n
 
1698
 
 
1699
    (erlang-skel-separator 2)
 
1700
    "%% Function: suite() -> Info" n
 
1701
    "%% Info = [tuple()]" n
 
1702
    (erlang-skel-separator 2) 
 
1703
    "suite() ->" n >
 
1704
    "[{timetrap,{seconds,30}}]." n n
 
1705
 
 
1706
    (erlang-skel-separator 2)
 
1707
    "%% Function: init_per_suite(Config0) ->" n
 
1708
    "%%               Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}" n
 
1709
    "%% Config0 = Config1 = [tuple()]" n
 
1710
    "%% Reason = term()" n
 
1711
    (erlang-skel-separator 2) 
 
1712
    "init_per_suite(Config) ->" n >
 
1713
    "Config." n n
 
1714
 
 
1715
    (erlang-skel-separator 2)
 
1716
    "%% Function: end_per_suite(Config0) -> void() | {save_config,Config1}" n
 
1717
    "%% Config0 = Config1 = [tuple()]" n
 
1718
    (erlang-skel-separator 2)
 
1719
    "end_per_suite(_Config) ->" n >
 
1720
    "ok." n n
 
1721
 
 
1722
    (erlang-skel-separator 2)
 
1723
    "%% Function: init_per_group(GroupName, Config0) ->" n
 
1724
    "%%               Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}" n
 
1725
    "%% GroupName = atom()" n
 
1726
    "%% Config0 = Config1 = [tuple()]" n
 
1727
    "%% Reason = term()" n
 
1728
    (erlang-skel-separator 2)
 
1729
    "init_per_group(_GroupName, Config) ->" n >
 
1730
    "Config." n n
 
1731
 
 
1732
    (erlang-skel-separator 2)
 
1733
    "%% Function: end_per_group(GroupName, Config0) ->" n
 
1734
    "%%               void() | {save_config,Config1}" n
 
1735
    "%% GroupName = atom()" n
 
1736
    "%% Config0 = Config1 = [tuple()]" n
 
1737
    (erlang-skel-separator 2)
 
1738
    "end_per_group(_GroupName, _Config) ->" n >
 
1739
    "ok." n n
 
1740
 
 
1741
    (erlang-skel-separator 2)
 
1742
    "%% Function: init_per_testcase(TestCase, Config0) ->" n
 
1743
    "%%               Config1 | {skip,Reason} | {skip_and_save,Reason,Config1}" n
 
1744
    "%% TestCase = atom()" n
 
1745
    "%% Config0 = Config1 = [tuple()]" n
 
1746
    "%% Reason = term()" n
 
1747
    (erlang-skel-separator 2)
 
1748
    "init_per_testcase(_TestCase, Config) ->" n >
 
1749
    "Config." n n
 
1750
 
 
1751
    (erlang-skel-separator 2)
 
1752
    "%% Function: end_per_testcase(TestCase, Config0) ->" n 
 
1753
    "%%               void() | {save_config,Config1}" n
 
1754
    "%% TestCase = atom()" n
 
1755
    "%% Config0 = Config1 = [tuple()]" n
 
1756
    (erlang-skel-separator 2)
 
1757
    "end_per_testcase(_TestCase, _Config) ->" n >
 
1758
    "ok." n n
 
1759
 
 
1760
    (erlang-skel-separator 2)
 
1761
    "%% Function: groups() -> [Group]" n
 
1762
    "%% Group = {GroupName,Properties,GroupsAndTestCases}" n
 
1763
    "%% GroupName = atom()" n
 
1764
    "%% Properties = [parallel | sequence | Shuffle | {RepeatType,N}]" n
 
1765
    "%% GroupsAndTestCases = [Group | {group,GroupName} | TestCase]" n
 
1766
    "%% TestCase = atom()" n
 
1767
    "%% Shuffle = shuffle | {shuffle,{integer(),integer(),integer()}}" n
 
1768
    "%% RepeatType = repeat | repeat_until_all_ok | repeat_until_all_fail |" n
 
1769
    "%%              repeat_until_any_ok | repeat_until_any_fail" n
 
1770
    "%% N = integer() | forever" n
 
1771
    (erlang-skel-separator 2)
 
1772
    "groups() ->" n >
 
1773
    "[]." n n
 
1774
 
 
1775
    (erlang-skel-separator 2)
 
1776
    "%% Function: all() -> GroupsAndTestCases | {skip,Reason}" n
 
1777
    "%% GroupsAndTestCases = [{group,GroupName} | TestCase]" n
 
1778
    "%% GroupName = atom()" n
 
1779
    "%% TestCase = atom()" n
 
1780
    "%% Reason = term()" n
 
1781
    (erlang-skel-separator 2)
 
1782
    "all() -> " n >
 
1783
    "[my_test_case]." n n
 
1784
    
 
1785
    (erlang-skel-separator 2)
 
1786
    "%% Function: TestCase() -> Info" n
 
1787
    "%% Info = [tuple()]" n
 
1788
    (erlang-skel-separator 2)
 
1789
    "my_test_case() -> " n >
 
1790
    "[]." n n
 
1791
 
 
1792
    (erlang-skel-separator 2)
 
1793
    "%% Function: TestCase(Config0) ->" n
 
1794
    "%%               ok | exit() | {skip,Reason} | {comment,Comment} |" n
 
1795
    "%%               {save_config,Config1} | {skip_and_save,Reason,Config1}" n
 
1796
    "%% Config0 = Config1 = [tuple()]" n
 
1797
    "%% Reason = term()" n
 
1798
    "%% Comment = term()" n
 
1799
    (erlang-skel-separator 2)
 
1800
    "my_test_case(_Config) -> " n >
1626
1801
    "ok." n
1627
1802
    )
1628
1803
 "*The template of a library module.