← Back to branch summary

~ubuntu-branches/ubuntu/vivid/samba/vivid

« back to all changes in this revision

Viewing changes to lib/subunit/perl/lib/Subunit/Diff.pm

  • Committer: Package Import Robot
  • Author(s): Chuck Short
  • Date: 2011-12-21 13:18:04 UTC
  • mfrom: (0.39.21 sid)
  • Revision ID: package-import@ubuntu.com-20111221131804-xtlr39wx6njehxxr
Tags: 2:3.6.1-3ubuntu1
* Merge from Debian testing.  Remaining changes:
  + debian/patches/VERSION.patch:
    - set SAMBA_VERSION_SUFFIX to Ubuntu.
  + debian/patches/error-trans.fix-276472:
    - Add the translation of Unix Error code -ENOTSUP to NT Error Code
    - NT_STATUS_NOT_SUPPORTED to prevent the Permission denied error.
  + debian/smb.conf:
    - add "(Samba, Ubuntu)" to server string.
    - comment out the default [homes] share, and add a comment about
      "valid users = %S" to show users how to restrict access to
      \\server\username to only username.
    - Set 'usershare allow guests', so that usershare admins are 
      allowed to create public shares in addition to authenticated
      ones.
    - add map to guest = Bad user, maps bad username to guest access.
  + debian/samba-common.config:
    - Do not change priority to high if dhclient3 is installed.
    - Use priority medium instead of high for the workgroup question.
  + debian/control:
    - Don't build against or suggest ctdb.
    - Add dependency on samba-common-bin to samba.
  + Add ufw integration:
    - Created debian/samba.ufw.profile
    - debian/rules, debian/samba.dirs, debian/samba.files: install
      profile
    - debian/control: have samba suggest ufw
  + Add apport hook:
    - Created debian/source_samba.py.
    - debian/rules, debian/samba.dirs, debian/samba-common-bin.files: install
  + Switch to upstart:
    - Add debian/samba.{nmbd,smbd}.upstart.
  + debian/samba.logrotate, debian/samba-common.dhcp, debian/samba.if-up:
    - Make them upstart compatible
  + debian/samba.postinst: 
    - Avoid scary pdbedit warnings on first import.
  + debian/samba-common.postinst: Add more informative error message for
    the case where smb.conf was manually deleted
  + debian/patches/fix-debuglevel-name-conflict.patch: don't use 'debug_level'
    as a global variable name in an NSS module 
  + Dropped:
    - debian/patches/error-trans.fix-276472
    - debian/patches/fix-debuglevel-name-conflict.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/subunit/perl/lib/Subunit/Diff.pm
 
1
#!/usr/bin/perl
 
2
# Diff two subunit streams
 
3
# Copyright (C) Jelmer Vernooij <jelmer@samba.org>
 
4
#
 
5
#  Licensed under either the Apache License, Version 2.0 or the BSD 3-clause
 
6
#  license at the users choice. A copy of both licenses are available in the
 
7
#  project source as Apache-2.0 and BSD. You may not use this file except in
 
8
#  compliance with one of these two licences.
 
9
#  
 
10
#  Unless required by applicable law or agreed to in writing, software
 
11
#  distributed under these licenses is distributed on an "AS IS" BASIS, WITHOUT
 
12
#  WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.  See the
 
13
#  license you chose for the specific language governing permissions and
 
14
#  limitations under that license.
 
15
 
 
16
package Subunit::Diff;
 
17
 
 
18
use strict;
 
19
 
 
20
use Subunit qw(parse_results);
 
21
 
 
22
sub control_msg() { }
 
23
sub report_time($$) { }
 
24
 
 
25
sub output_msg($$)
 
26
{
 
27
        my ($self, $msg) = @_;
 
28
 
 
29
        # No output for now, perhaps later diff this as well ?
 
30
}
 
31
 
 
32
sub start_test($$)
 
33
{
 
34
        my ($self, $testname) = @_;
 
35
}
 
36
 
 
37
sub end_test($$$$$)
 
38
{
 
39
        my ($self, $testname, $result, $unexpected, $reason) = @_;
 
40
 
 
41
        $self->{$testname} = $result;
 
42
}
 
43
 
 
44
sub new {
 
45
        my ($class) = @_;
 
46
 
 
47
        my $self = { 
 
48
        };
 
49
        bless($self, $class);
 
50
}
 
51
 
 
52
sub from_file($)
 
53
{
 
54
        my ($path) = @_;
 
55
        my $statistics = {
 
56
                TESTS_UNEXPECTED_OK => 0,
 
57
                TESTS_EXPECTED_OK => 0,
 
58
                TESTS_UNEXPECTED_FAIL => 0,
 
59
                TESTS_EXPECTED_FAIL => 0,
 
60
                TESTS_ERROR => 0,
 
61
                TESTS_SKIP => 0,
 
62
        };
 
63
 
 
64
        my $ret = new Subunit::Diff();
 
65
        open(IN, $path) or return;
 
66
        parse_results($ret, $statistics, *IN);
 
67
        close(IN);
 
68
        return $ret;
 
69
}
 
70
 
 
71
sub diff($$)
 
72
{
 
73
        my ($old, $new) = @_;
 
74
        my $ret = {};
 
75
 
 
76
        foreach my $testname (keys %$old) {
 
77
                if ($new->{$testname} ne $old->{$testname}) {
 
78
                        $ret->{$testname} = [$old->{$testname}, $new->{$testname}];
 
79
                }
 
80
        }
 
81
 
 
82
        return $ret;
 
83
}
 
84
 
 
85
1;